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1 . 


INTRODUCTION 


The Vortex Information Display System (VIDS) provides flexible control 
through system-user interaction for collecting wing-tip-trailing vortex data, 
processing this data in real time, displaying the processed data, storing raw 
data on magnetic tape, and post processing raw data. The data is received from 
two asynchronous Laser Doppler Velocimeters (LDV's) and includes position, 
velocity, and intensity information. The raw data is written onto magnetic tape 
for permanent storage and is also processed in real time to locate vortices and 
plot their positions as a function of time. 

The interactive capability enables the user to make real time adjustments 
in processing data and thereby provides a better definition of vortex behavior. 
Displaying the vortex information in real time produces a feedback capability to 
the IjDV system operator allowing adjustments to be made in the collection of 
raw data. Therefore, both raw data and processing can be continually upgraded - 
during flyby testing to improve vortex behavior studies. The post-analysis capa- 
bility permits the analyst to perform in-depth studies of test data and modify 
vortex behavior models to improve transport predictions. 

VIDS is composed of both PDP-11 support software and M&S Computing 
application software running under control of the PDP-11 operating system. 

1 . 1 PDP-11 Support Software 

The PDP-11 support software includes system programs and utilities 
designed by Digital Equipment Corporation (DEC) to support the PDP-11 user 
during execution of application programs. Specifically, the PDP-11 software 
components are: 

o Disk Operating System (DOS) 

o Verification Program (VERIFY) 

Sections 2 and 4 of the Vortex Information Display System User's Manual 
discuss these PDP-11 components in detail. 

1. 2 M&tS Computing Application Software 

The M&S Computing application software is composed of routines that control 
program flow and that collect, store, process, and display data. These routines 
are grouped as follows: 

o Data Acquisition routines which input and output raw data. 

o FORTRAN routines which initialize variables, locate vortex 

centers, and provide interfaces between the assembly language 
I/O routines, the vortex location routines, and the display 
controller. 
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M&S Computing Support Software 


The M&S Computing support software is composed of the display librarian 
•which creates predefined displays in a library to be used and displayed by the 
application software. 


1.4 


Hardware Configuration 


The hardware configuration (see Figure 1-1) required by VIDS is: 

o Digital Computer, PDP-11 series model 35 with 32K memory 

and 16 bit words - DEC. 


o Magnetic Disk Unit, RK05 - DEC. 

o Magnetic Tape Unit, TU10 - DEC. 

o Graphics Display Terminal, 4014 series terminal and 

613 monitor - Tektronix, Inc. 

o Hard Copy Device, 4610 series - Tektronix, Inc. 

o Graphics Data Tablet, HW-1-11, Summagraphics. 

Operation of VIDS hardware is discussed in Section 2, Vortex Information 
Display System User's Manual. 
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2 . 


DATA ACQUISITION 


The Data Acquisition portion of the Banning Vortex software system is 
written in assembly language to handle interrupts as quickly as possible. It is 
divided into three major portions: 


1 . 

ATVWS 

- 

initialization. 

2. 

READ 

- 

acquire the data from the LDV's and write 
the data on the disk. 

3. 

FILL 

- 

read the data from the disk and format it 
as required by the data processing functions. 


Figure 2-1 depicts the overall data flow for the Data Acquisition function 
and illustrates the role of each software portion. Each of the three Data Acquisi- 
tion portions will be described in this section, and the section will be organized 
as follows: 

o Overview of function 

o Interaction with other functions 

o Critical parameters 

o Parameters which define function capability 

o Module:descriptions, which will include: 

- Purpose of module 
Calling sequence 

- Other modules required 

- Critical parameters 

Listings of the Data Acquisition software are contained in the Appendices. 

If any of the specific items are not required for a particular portion of 
module description, then that heading and item will be omitted. 

2. 1 ATVWS Overview 


This function is responsible for initialization of the hardware and software 
components which make up the Data Acquisition portion of the Banning Vortex 
system. 
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In particular, modules within this function perform the following: 
o Initialize the hardware interfaces (DR-ll's). 

o Start flyby or test, 

o Stop flyby or test, 

o Start data collection, 

o Stop data collection, 

o Read plane type, 

o Initialize pointers and flags required by the software 

modules. 

2. 1. 1 Interaction 

This function interacts with the other two functions (READ and FILE) 

in that: 

o ATVWS initializes flags and indicators for those functions. 

o ATVWS contains the central logic to display all error 

messages which describe error conditions detected by any 
of the three Data Acquisition functions. 

2. 1.2 Critical Parameters 

ATVWS relies on the flag IFLD which is common to Data Acquisition 
and Data Processing functions, and which indicates the LDV's required for any 
particular test. This flag controls routine INIT and must be set prior to entry, 
as follows: 

IFLD = 0, both EDV' s 

IFLD = 1, LDV 2 only 

IFLD = 2, LDV 1 only 

2. 1. 3 Design Parameters 

Additional error messages may easily be added simply by entering the 
address of the message in the list MSGAD. A particular message is displayed l 
executing a Jump (JMP) instruction to location HALT (which is GLOBAL) with 
the appropriate message index in R0. (Each index is a multiple of 2 which 
provides for word indexing. ) 
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2,1.4 Module Descriptions 


Module ATVWS 


Purpose 

The ATVWS module (Figure 2-2} initializes the interrupt vectors for the 
three DR-ll’s. It also initializes the disk file LDVS which is allocated to store 
the accumulated data. ATVWS is called by the Display Controller at the start 
of the system execution. 

Calling Sequence 

JSR R5, ATVWS 

(cannot be called via FORTRAN routine) 

Modules Required 
LKTRAN 
INITDS 
DISPIO 
Module INIT 


Purpose 

The INIT module (Figure 2-3) initializes all software pointers and flags 
and enables the DR-11 interrupts. The latter permits detection of the request A 
and request B interrupts. 

Calling Sequence 

JSR R 5, INIT 

or CALL INIT 

Modules Required 

INITBF 

Critical Parameters 

IFLDV is a control indicator which must be set prior to INIT call: 

IFLD = 0, both LD V's 
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Figure 2-2 


- 9 - 




INITIALIZE 



Figure 2-3 
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IFLD = 1, LDV 2 only 

IFLD = 2, LDV 1 only 

IFLD is the first word in common IFLDV. 
Module DISABL 


Purpose 

The DISABL module (Figure 2-4) disarms the hardware interrupts for 
the two DR-ll’s. A software flag FIN (normally zero) is set to a positive one 
to denote end of test. 

Calling Sequence 

JSR R5, DISABL 

or CALL DISABL 

Module DISAB1 


Purpose 

The DISAB1 module (Figure 2-5) disarms the two interrupts for the 
DR- 11 used to input the Start-of- Flyby signal and the plane type. 

Calling Sequence 

JSR R5, DISAB1 

or CALL DISAB1 

Module INTCA 


Purpose 

The INTCA module (Figure 2-6) responds to the interrupt generated by 
the DR- 11 that specifies the Start -of- Flyby and plane identification. A Start-of- 
Flyby signal ends any current test and initializes the hardware and software 
in preparation for the start of another flyby. 

Modules Required 

DISABL 
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Module INITBF 


Purpose 

The INITBF module (Figure 2-7) initializes all the data input buffers and 
assigns a buffer to each of the LDV's. This module also initializes all software 
pointers and flags. 

Calling Sequence 

J SR PC, INITBF 

(Module cannot be called via FORTRAN routine). 

Module HALT 
Purpose 

The purpose of the HALT module (Figure 2-8) is to stop or abort the 
current flyby, to display an appropriate message on the CRT, and to initialize 
the system for further test or flybys. This module is not a subroutine; it is 
the central error handling function. 

Calling Sequence 

MOV ERR, RO (set error message index (see Section 2. 1. 3)). 

JMP HALT (jump to error routine). 

where: 


ERR is a unique error number. Error numbers 2-8 are currently used 
and are assigned such that RO may be used as a word index. That is, RO 
contains an integer which is a multiple of 2. 

Modules Required 

DISPIO 

2 . 2 READ Overview 

This function is responsible for acquiring the data for the Banning Vortex 
software system. 

Modules within this function respond to the DR-11 interrupts, input the 
data words in response to the interrupts, accumulate the data in memory buffers, 
and write the data on the disk as the memory buffers are filled. 
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2. 2. 1 Interaction 


This function interacts with ATVWS in that ATVWS initializes READ 
pointers and flags and enables the DR- 11 interrupts which cause READ 
function responses. READ interacts with FILL in that FILL functions process 
data on the disk written by the READ functions. READ functions also maintain 
a count for the FILL functions to enable them to track the progress of each LDV 

2, 2. 2 Critical Parameters 

Modules within the READ function manage a pool of data input buffers. 
These buffers each contain 256 words, which is the physical size of a disk 
sector. Figure 2-9 illustrates the format of these data buffers. As can be. 
seen by this figure, each buffer contains 248 data words and 8 control words. 

The number of buffers assigned to this buffer pool is critical to the system. 

Enough buffers to support input functions are required when the rate of input 
is at a maximum for both LDV's. This rate of input must be sustained during 
those periods (such as data being FILLed) when data cannot be written on the 
disk. 

2. 2. 3 Design Parameters 

Additional buffers may be added to the system; modules within READ 
are designed to manage any number. Location BUF contains the current 
number of buffers and must be changed as buffers are added or removed from 
the system. 

Each buffer consists of two Reserve Block Word operators (, BLKW): 

. BLKW SIZB 

. BLKW SIZD 

SIZB (number of control words) has been equated to 8; SIZD (number of data 
words) to 248. Changing either or both of these parameters will in turn change 
all data buffers. 

2.2.4 Module Descriptions 

Module INTAA 

Purpose 

The INTAA module (Figures 2-10 through 2-12) responds to the request A 
(end of frame (EOF)) interrupt for DR- 11 A (LDV 1). Upon entry, this module 
inputs four data words (to clear the interrupt signal) and discards the data. If the 
interrupt is the first EOF for the flyby, the request B interrupt (data input) is 
enabled. Otherwise, the current buffer is marked to denote an EOF has occurred. 


- 15 - 



8 Words of 
Control 


248 Words of 
Data 


Control 


DATA BUFFER FORMAT 



First Time of Buffer 
Last Time of Buffer 


Byte 1 Byte 0 



7 

6 

5 

— * i 

4 [ 3 

2 1 

Gu 

» • ‘ • ~ 1 ; t 


Not Used 


LEnd of Test 
L-End of File 
^-Buffer Ready for Write 
-Buffer Busy 


Figure 2-9 


- 16 - 



L.DV1 EOF 


LDV2 EOF 
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a new buffer is assigned to the LDV, and the full buffer is written on disk, if the disk 
write services are available. If the write services are not available, then the 
buffer is marked for a '‘write ready, " and the interrupt module is exited. The 
buffer will be written at the next available time. 

Modules Required 

SAW 

WRITE 

Module INTAB 


Purpose 

The INTAB module (Figures 2-10 through 2-12) performs the same 
function as INTAA (see X. 5. 1 above) except INTAB provides support for DR- 11 B. 
Certain functions (see flowchart) are common to both INTAA and INTAB. 

Modules Required 

SAW 

WRITE 

Module INTBA 


Purpose 

The INTBA module (Figures 2-12 and 2-13) inputs the application data 
via DR- 11 A (LDV 1). This module responds to the request B interrupt, brings 
in the 4 data words, sets the time and increments the word count. If the data 
buffer is full, the buffer is marked "write read, " a new buffer is assigned to the 
LDV, and the full buffer is written on disk, if the disk services are available. If 
the disk services are not available, the buffer is written at the next available time. 
If the buffer is not full, this module is exited after bringing in the data. This 
module provides code that is common to INTAA, INTAB, and INTBA. 

Modules Required 

SAW 

WRITE 

Module INTBB 


purpose 

The INTBB module (Figures 2-12 and 2-13) performs the same function as 
INTBA except INTBB provides support for DR- 11 B (LDV 2). Certain functions are 
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Figure 2-13 
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common (see flowchart) and the code is therefore shared. 


Modules Required 
SAW 
WRITE 
Module IN TAW 


Purpose 

The INTAW module (Figure 2-14) responds to the request B interrupt for 
DR- 11 A (LDV 1). This module processes the data prior to receiving the start 
of flyby (interrupt request A or EOF). The data is read in and discarded. 

Module INTBW 

Purpose 

The INTBW module (Figure 2-15) responds to the request B interrupt for 
DR- 11 A (LDV 2). This module processes the data prior to receiving the start of 
flyby interrupt. The data is read in and discarded. 

Module CALBLK 


Purpose 

The CALBLK module (Figure 2-l6) calculates the sector address for each 
buffer for both LDV's. A current sector address is maintained for LDV 1 and LDV 2, 
where LDV 1 buffers are written on even sectors and LDV 2 buffers are written 
on odd sectors. 

Calling Sequence 

JSR PC, CALBLK 

(cannot be called by FORTRAN routine). 

Upon return, the sector number is in R4. 

Module SAW 

Purpose 

The SAW module (Figure 2-17) manages the buffer switching function. 

When called, this module assigns a new buffer to the LDV and processes the 
control word for the full buffer, as follows: 
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L.DV 1 WAIT 


LDV2 WAIT 


CALCULATE DISK SECTOR 









o Sets store address and start address for new buffer. 

The store address is used to place data into the buffer; the 
start address is used to store buffer control information. 

o Sets new buffer busy (see Figure 2-9). 

o Calls CALBLK to obtain sector address and places the 

address in the old buffer control word. 

o Sets header and frame number in the old buffer control words. 

Note that the frame number is positive for LDV 1 and negative 
for LDV 2, 

o Sets the write ready status (see Figure 2-9) for the old buffer. 

Calling Sequence 

JSR PC, SAW 

(cannot be called via FORTRAN routine). 


Upon entry: 

R2 = 

0 , 

for LDV 1 


R2 = 

2, 

for LDV 2 


Modules Required 
CALBLK 
HALT 

Critical Parameters 

This module executes on level 7. 
Module WRITE 


Purpose 

The WRITE module (Figure 2-18) performs all functions required to write 
the data buffers on the disk. 

Upon entry, the module searches the buffer pool to find the buffers waiting 
("write ready") to be written on the disk. From the buffers ready, this module 
finds the next logical buffer. The next logical buffer must: 

o Be in same sequence as the last buffer written. That is, if 

the last buffer written was for LDV 1 (even sector number), then 
all LDV 1 ready buffers will be written before any LDV 2 buffers 
(odd sector number). Likewise, if the last sector written was 
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for LDV 2, then all odd sectors will be written before any even 
sectors. 


q ge in sequence for either even or odd sector numbers, Sectors 

are written in the order specified by their sector numbers, which 
progress in increments of 2; i, e. , 0, 2, 4, ... for LDV 1 or 1, 

3 , 5, ... for LDV 2. This method of selection is designed to 
minimize the disk access times since once the requests are 
synchronized (after the first sector is written), all other sectors 
can be written within two sector times, or approximately 6 
milliseconds. 

After a buffer is written on the disk, its control word is examined to 
determine if an EOF occurred for the buffer. If an EOF occurred, the number 
of frames written on the disk is incremented. The buffer is marked as "free” 
and returned to the buffer pool after it is written on the disk. 

Calling Sequence 

JSR PC, WRITE 

(cannot be called via FORTRAN routine). 

Upon entry: R2 = 0, for LDV 1 

R2 = 2, for LDV 2 

Modules Required 
WAITR 
LKTRAN 
HALT 

Critical Parameters 

This module must be serially executed; it is not reentrant. To insure 
this, the module is protected by a flag (LOCK) which is set upon entry and reset 
upon exit. In addition, this module may not be executed while a read disk opera- 
tion is in progress. BUSY is set by the read disk function and is reset when the 
read completes. This module is not executed if BUSY is set. 

2. 3 FILL Overview 


This function is responsible for reading the data from disk and placing 
the data in the process buffer in the specified format. Figure 2-19 provides a 
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pictorial description ol this process, From this figure it can be seen that: 

o data is brought from disk in data buffers which are one sector 

in length; and 

o the data read from disk is stripped and placed in the process 

buffer in such a manner that like data is contiguous. 

One fill request results in either: 

o all data for one frame being placed in the process buffer, 

o a maximum of 992 data points being placed in the buffer, or 

o no data being placed in the process buffer because an abort 

was detected. 

2. 3. 1 Interaction 

This function interacts with READ in that a count is maintained for frames 
written on the disk for each LDV. Basically, READ increments the count as 
data is written and FILL decrements the count as data is read. 

2. 3. 2 Critical Parameters 

This function is given priority over the disk write functions. BUSY 
is a flag (set = -1) which inhibits the write process. That is, a disk write 
function will not be processed if a read is in progress. This enables a FILL 
iteration to be processed with a minimum of disk accesses, 

2, 3. 3 Module Descriptions 

Module FILL 


Purpose 

The FILL module (Figures 2-20 through 2-23) provides the FORTRAN data 
processing functions with test data read from disk. The data is read from disk and 
placed in the process buffer in the format required by the calling functions. 

Data read in from disk is double-buffered such that one buffer is being 
processed while the other buffer is being filled by the disk. This technique 
enables both the data read and process functions to be accomplished in essentially 
the time required for the disk read. 

Calling Sequence 

JSR R5, FILL 
or CALL FILL' 
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Modules Required 
READ 
MAX V 
STORE 
TIFR 

Critical Parameters 

First word of common IFLDV denotes the test configuration as follows: 
IFLD = 0, both LDV 

IFLD = 1, LDV 2 only 

IFLD ■ ' = 2, LDV 1 only 

First word in common ABTERM is used to signal a test abort: 

ABTERM = 33 or 42, test is aborted 

Common IHDLI is used to pass the following information: 

Word 1 (MAXI) = Integer which denotes the first maximum velocity 

point found in data. 

Word 2 (MAX2) = Integer which denotes the second maximum velocity 

point found in the data. 

Word 3 (IEOFI) = 0, data processed normally 

-1, data of frame exceeds 992 points 
+ 1, end of flyby occurred 

Common LDVDAT is used to pass the following information: 

Word 1 (IFLY) = Used by FORTRAN routines. 

Word 2 (IFRM) = Data frame number, where a positive frame denotes 

LDV1; negative, LDV 2. 

Word 3 (TMINT) = Integer value of high-order time for first data 

word of FILL iteration. Note that each count equals 
1/60 second. 
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Word 4 (TMINT+2) = Integer value of low -order time for first data 

word of FILL iteration. 

Word 5 (TMEND) = Integer value of high-order time for last data word. 
Word 6 (TMEND+2) = Integer value of low-order time for last data word 
Word 7 (IDAY) = Used by FORTRAN routines. 

Word 8 (IPLN) = Used by FORTRAN routines. 

Word 9 (NUMPTS) = Integer which denotes number of data points placed 

in the process buffer. 


Module READ 


Purpose 

The READ module {Figure 2-24) reads in a sector of data from the disk. 
For a particular FILL iteration, all reads will be performed for a particular 
LDV. That is, either even or odd sectors will be read. 

Calling Sequence 

JSR PC, READ 

(cannot be called via a FORTRAN routine). 

Upon entry: RO = 0, buffer 1 read 

R0 = 2, buffer 2 read 

Modules Required 
LKTRAN 
Module STORE 


Purpose 

The STORE module (Figure 2-25) extracts four data words from the input 
buffer and places them in the process buffer in the required format. 

Calling Sequence 

JSR PC, STORE 

(cannot be called via FORTRAN routine). 


- 34 - 














Upon entry: R2 = address of first of the four words to be moved 

R4 = address of process buffer which will receive words 
Upon exit; R2 = address of next four words 
R4 = unchanged 

Module MAXV 
Purpose 

The MAXV module (Figure 2-26) searches for the two maximum velocities 
of the FILL iteration. An integer (1-992) is set for each of the maximums to denote 
the data point numbers for the process buffer of the current FILL iteration. 

Calling Sequence 

J SR PC, MAXV 

(cannot be called via FORTRAN routine). 

Upon entry: R4 = address of current velocity in process buffer 

R1 = current data point number 
Upon exit: R4 = unchanged 

R1 = unchanged 

Module TIFR 
Purpose 

The TIFR module (Figure 2-27) sets the last time and the frame number in 
the designated COMMON (see module FILL). 

Calling Sequence 

JSR PC, TIFR 

(cannot be called via FORTRAN routine). 

Upon entry: R2 = current buffer address 

Upon exit: R2 = unchanged 
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3. 


FORTRAN ROUTINES 


This section describes the routines which initialize variables, locate 
vortex centers, and provide interfaces between the data acquisition routines, 
the vortex location routines, and the display controller. These routines are 
written in FORTRAN to facilitate program modification as more knowledge 
about vortex behavior and detection is gained. 

3. 1 Start Flyby 

Name 

STRT 

Calling Sequence 

CALL STRT (N) 

Where N is a six element array with the elements containing the following: 

o N(l) contains the number of the display that was on 

the screen when STRT was called. 

o N(2) contains the option number which was selected from 

the display. 

o N(3) contains the number of bytes in a compose field, 

o N(4) contains a flag that indicates type of input field, 

o N(5) and N{6) contain data from the input field. 

Description of Function 

Subroutine STRT (Figures 3-1 through 3-12) provides the interface 
between the assembly language I/O routines, the vortex location algorithm, 
and the display controller. The routine initializes the output data tape, directs 
the placement of the chosen ouput display backgrounds on the terminal screens, 
directs the filling of data buffers from either real time LDV input or from 
tape, directs output of real time data to tape, and calls the vortex location 
algorithm, STRT also handles flyby termination as directed by LDY input 
signals, end of files on input data tapes, or operator keyboard input signals 
and cycles the program to the appropriate starting point for the next data input. 

External References 

DISPIO, RTV, OPEN, SFUN, INIT1, SETAD, DFLT, SCAT, PTYP, 
DISAB1, DISABL, FILL, PUT, VREAD, CENTRD, and WAIT. 
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Device Selection 


3. 2 
Name 


DSEL 

Calling Sequence 

CALL DSEL (N) 

Where N is an eight element array with the elements containing the following: 

o N(l) contains the number of the display that was on the screen 

when DSEL was called, 

o N(2) contains the option number which was selected from 

the display, 

o N(3) contains the number of bytes in a compose field, 

o N{4) contains a flag indicating the type of input field, 

o N(5) through N(8) contain input field values. 

Description of Function 

Subroutine DSEL (Figures 3-13 and 3-14) determines which input 
and output devices were selected by the operator and sets flags to indicate 
the chosen devices. The routine also is used to place compose field input 
for flyby number and day in header buffers for displays. In post-analysis, 
the routine searches the data tape for flyby numbers or day numbers that 
match the input number. 

External References 

SFUN, DISPIO, PTYP, and VREAD. 

3. 3 Get Addresses for Output 

Name 


ONCE 

Calling Sequence 

CALL ONCE 
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Description of Function 

Subroutine ONCE (Figure 3-15) is entered only when the program is 
loaded. It calls the display controller to establish high-speed output in large 
characters and calls SETAD to get the addresses of the variables which follow: 

o Blank. 

o XYSYM odd elements which contain the letters of the alphabet, 

o PLTSI which contains an *. 

o PLTS3 which contains an o. 

o ID AT A which is an output buffer array. 

o ILi 1 which is the buffer that contains dit positions for write- 

through .lines showing default values for system parameters. 

o IL2 which is the buffer that contains dit positions for write - 

through lines showing default values for aircraft dependent 
parameters, 

o DATE which contains flyby date, 

o IFLB which contains flyby number. 

It also converts the default correlation radius from feet to counts. 

External References 

DISPIO and SETAD. 

3. 4 System Initialization 
Name 


RTV 

Calling Sequence 

CALL RTV (N) 

Where N is a six element array with the elements containing the following: 

o N{1) contains the number of the display that was on the 

screen when RTV was called. 
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o N(2) contains the number of the option which was selected 

from the display. 

o N(3) contains the number of bytes in a compose field. 

o N(4) contains a flag which indicates the type of input 

field. 

o N(5) and N(6) contain data from the input field. 

On any given call, all of the elements of N may not be defined. 

Description of Function 

During Post-Analysis, RTV (Figure 3-1 6) enables the interface to 
magnetic tape unit 1 and reads the first data record for each flyby. During 
both post-analysis and real-time operation, the routine sets the coordinates 
and calls the display controller to draw write -through lines indicating chosen 
system parameters. It also places the day and flyby number on the system 
parameters displays. 

External References 

DISPIO, OPEN, SFUN, VREAD, and PTYP. 

3. 5 Update System Parameters 
Name 


DFLT 

Calling Sequence 

CALL DFLT (N) 

Where N is an eight element array containing the following: 

o N(l) contains the number of the display that was on the 

screen when DFLT was called. 

o N(2) contains the option number that was selected from 

the display. 

o N{3) contains the number of bytes in a compose field, 

o N(4) contains a flag indicating the type of input field, 

o N(5) through N(8) contain input field values. 
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Description of Function 

Subroutine DFLT (Figure 3-17) changes the aircraft dependent parameters 
from a default value to a value input through the keyboard and if the update default 
option was selected, it updates the default value for the particular aircraft 
to the input value. The routine also sets the buffer containing the heading that 
displays aircraft dependent parameters. 

External References 

None. 

3. 6 Raw Data Dump 
Name 

DBUG 

Calling Sequence 

CALL DBUG 
Description of Function 

Subroutine DBUG (Figure 3-18) gives a dump of the raw data in 
counts that is received from the LDV’s. The data includes the horizontal 
and vertical coordinates of a point, the number of filters, the intensity, the 
peak velocity, and the velocity at maximum intensity. 

External References 

SSWTCH, DISPIO, and SUBBIT. 

3. 7 Read Data From Tape 

Name 


VREAD 

Calling Sequence 

CALL VREAD 
Description of Function 

Subroutine VREAD (Figure 3-^19) obtains raw position, velocity, and 
intensity data from tape for post processing and prepares the data for' processing. 
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External References 


GET, WAIT, SFUN, DISPIO, and DECD. 
3. 8 Encode Integers 
Name 


DECD 

Calling Sequence 

CALL DECD (KK, KKK, KP) 


Where: 

o KK is the number to be encoded, 

o KKK is the number of bytes output. 

o KP is the address that contains the encoded number. 

Description of Function 

Subroutine DECD (Figure 3-20} encodes an integer number. The 
alphanumeric results are stored left -justified. The maximum number of 
bytes output is five. If the encoded number is greater than five bytes, only 
the right most bytes are output. Signs are also output and count as one of 
the five bytes. 

External References 

None. 

3, 9 Get Address 
Name 

SETAD 

Calling Sequence 

CALL SETAD (I, V) 

Where: 


o I is the return variable containing the address of V. 
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ENCODE INTEGERS 






o V is an integer or real variable but must begin on an odd 

word variable. 

Description of Function 

SETAD (Figure 3-21) gets the address of a variable. 

External References 
None. 

3. 10 Set Plane Type 
Name 


PTYP 

Calling Sequence 

CALL PTYP (N) 

Where N is a six element array defined as follows: 

o N(l) contains the number of the display that was on the screen 

when PTYP was called. 

o N(2) contains the option number that was selected from the 

display. 

o N(3) contains the number of bytes in a compose field, 

o N(4) indicates the type of input field, 

o N(5) and N(6) are input field values. 

Description of Function 

PTYP (Figure 3-22) determines the name of the aircraft from input 
data, sets the default values for aircraft dependent parameters, brings up 
the appropriate aircraft dependent parameters display and fills in the day, 
flyby number, aircraft type, and default values on this display. In post- 
analysis, PTYP can also search the data tape to find a desired plane type. 

External References 

DISPIO, TIME, VREAD, and SFUN. 
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3. 11 


Calculate Velocity 


Name 


GET V EL 
Calling Sequence 

CALL GETVEL (IV, VEL) 


Where: 

o IV is an integer word that contains the peak velocity in bits 8-14 

and the maximum velocity in bits 0-6 in counts. 

o VEL is a real variable that contains the peak velocity in feet/ 

second. 

Description of Function 

Subroutine GETVEL (Figure 3-23) extracts the peak velocity in counts 
from an integer word that contains both the peak velocity and the maximum 
velocity for a data point. It then converts the integer velocity in counts to a 
floating point velocity in feet/second according to Table 3-1, 


External References 

SUBBIT and FLOAT. 
3.12 Find Vortex Center 
Name 


CENTRD 
Calling Sequence 

CALL CENTRD 
Description of Function 

CENTRD (Figure 3-24) processes raw data in an attempt to locate 
vortex centers. The data is checked to see if it possesses the minimum num- 
ber of points that are required to define a vortex. The minimum number of 
points to locate a vortex center is never less than two and will be two for the 
first vortex of a data frame. For the second vortex the minimum is defined 
as C% of the number of points contained in the first vortex center. If there 
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COUNT TO VELOCITY CONVERSION 


COUNT 

VELOCITY IN FEET PER SECOND 

< 69 

1.8* count 

70 < 75 

1. 8 * 69 + (count-69) * 3. 6 

> 75 

1.8* 69 + 6 *3. 6 + (count-75) * 7. 2 


Table 3-1 
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are insufficient points, the description parameters that are used in tabular 
data output for the vortices are set to indicate that no vortex center was found. 
The assigned values are: 

o NCORPT( I) = NUMPTS 

o NCORPT(2) = 0 

o PKVEL(l) = maximum peak velocity 

o NOISE(I) = 0 

o The remaining descriptive parameters are not set but 

will be set equal to a blank in subroutine DISPLA. 

If there are sufficient points, the point with the maximum peak velocity 
is found, and its velocity checked to see that it has a minimum value of D% 
of the maximum peak velocity of the last vortex center found (it is assumed 
that for the first frame that the previous velocity was zero). If the velocity 
is less than the minimum, the descriptive parameters are again set as 
shown above to indicate that no vortex center was found. 


If the maximum peak velocity equals or exceeds the minimum, the 
points in a correlation region defined as all points within a radius R of the 
point with maximum velocity are located. If there are a sufficient number of 
points to define a vortex and if B% of the points have a minimum velocity 
defined as A % of the maximum, then a vortex center is determined using the 
following equation; (see Table 3-2): 

k k 
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If the above criterion is not met, the point is rejected as a noise spike, 
the noise spike count is increased by one, and if the noise spike limit has 
not been, exceeded, the process is repeated beginning with a search for the 
point possessing the maximum peak velocity. If the noise spike limit is 
exceeded, the descriptive parameters are set as shown above to indicate that 
no vortex center was located except NOISE(I) will be equal to the number of 
noise spikes and NCORPT(l) will be equal to the number of points in the 
correlation region. Then subroutine DISPLA. will be called. 


When the first vortex center is found, time is calculated, NOISES(l) 
is set equal to the noise spikes, NCORPT(l) is set equal to KOUNT, PKVEL(l) 
is set equal to the maximum peak velocity in the vortex center, all of the 
points used in determining the location of this vortex center are rejected/ and 
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DEFINITION OF TERMS 


SYMBOL 

MNEMONIC 

DEFINITION 

UNITS 

Input from LDY's 



I 

INTENS 
(bits 7-14) 

intensity 

Counts 

Vpeak 

IVEL (bits 8-14) 

peak velocity 

C ounts 

X 

IX 

horizontal coordinate of point 
wrt LDV 

Counts 

Y 

IY 

vertical coordinate of point 
wrt LDV 

Counts 

N 

NUMPTS 

number of data points 

None 

Variable Input 




A 

VELTOL 

A defines the minimum peak velocity 
that B% of the points in a correlation 
region must possess by requiring them 
to have A% of the maximum peak velocity. 

None 

B 

PTTOL 

B defines the percent of points in a 
correlation region that must possess 
a minimum velocity defined as A% the 
maximum peak velocity. 

None 

C 

VORTOL 

Defines the minimum number of points 
needed to locate a second vortex center 
in a frame of data since this number is 
C% of the number of points which defined 
the first vortex center. 

None 

D. 

FRVTOL 

The maximum peak velocity for the first 
vortex center defined in a data frame 
must be D% of the peak velocity from 
the last defined vortex center. 

None 

R 

IRADI 

Radius of correlation volume 

feet 

NS 

NOISE 

The maximum peak velocity for the 
definition of the second vortex must 
be separated from the maximum peak 
velocity of the first vortex by NS * R. 

None 


• 

Table 3-2 
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DEFINITION OF TERMS 
(continued) 


SYMBOL 

MNEMONIC 

DEFINITION 

UNITS 

Variables Calculated in CENTRD 


K 

KOUNT 

Number of points in a correlation 
region. 

None 

Descriptive 

Parameters Determined in CENTRD 


X 

XCG 

A two element array containing the 
horizontal distances between the 
vortex centers and the L»DV. 

feet 

Y 

YCG 

A two element array containing the 
vertical distances between the vortex 
centers and the LDV 

feet 

n 

NCORFT 

A two element array containing the 
number of points in the correlation 
regions of the vortices. 

None 

( Vpeak)max 

PKVEL 

A two element array containing the 
maximum peak velocity for each 
vortex. 

ft/ sec 

©min 

ELANG1 

Minimum angle at which data point 
was found. 

deg. 

©max 

ELANG2 

Maximum angle at which a data point 
was found. 

deg. 

NVORTX 

NVORTX 

Number of vortices found in a frame 
of data. 

None 

t 

RTIME 

Time at which the vortex center was 
detected relative to time at which the 
first data point was detected. 

sec. 

NOISE 

NOISES 

A two element array containing the 
number of noise spikes that were en- 
countered while locating a vortex 
< center. Maximum number allowed 

is 5. 




Table 3-2 
(continued) 
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a search using the same techniques is used to locate a second vortex center. 
However, when descriptive parameters are set they will have an index of 2 
and there is no velocity check against the last vortex center found. When 
either the second vortex center has been located or it has been determined 
that a second vortex center cannot be defined, subroutine DISPLA is called to 
output the data. 

External References 

DISPLA, GETVEL, and SUBBIT. 

3. 13 Display Output Data 

Name 


DISPEA 

Calling Sequence 

CALL DISPLA 
Description of Function 

Subroutine DISPLA (Figure 3-25) transforms vortex locations from 
LDV referenced coordinate systems to the center of runway coordinate system, 
encodes description parameters for output, sets the display controller buffers 
with the desired output format, and calls the display controller to output data. 
For a detailed description of output choices and output see Section 6 of this 
manual. 

External References 
DISPIO. 

3. 14 Terminate Program 
Name 

TERM- 

Calling Sequence 

CALL TERM (N) 

Where: N is a dummy- argument. 
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DISPLAY OUTPUT DATA 



/ 






Description of Function 

Subroutine TERM (Figure 3-26) prepares the data tape for program 
termination and returns control to the DOS Monitor. When the program is 
operating in real time and recording data on magnetic tape, TERM writes two 
consecutive end of files at the end of data. The routine then rewinds the 
tape for both real time and post-analysis and returns control to the DOS 
Monitor. 

External References 

SFUN, WAIT, CLOSE, and DISFIO. 

3. 15 Scatter Plot Generation 
Name 

SCAT 

Calling Sequence 

CALL SCAT 
Description of Function 

Subroutine SCAT (Figure 3-27) plots the raw data points and the 
vortex centers in an X-Y coordinate system for each data frame in a flyby. 
The character which represents each point is determined by the magnitude of 
the velocity for that point. The points possessing the ten highest velocities 
are represented by the corresponding first ten letters of the alphabet. Sub- 
sequent points are represented according to the following table: 

SYMBOL VELOCITY IN FT. /SEC. 

0 
1 
2 

3 

4 

5 

6 

7 

8 
9 

External Re 

CENTRD, DISPIO, GETVEL, DECD, SETAD, VREAD, DBUG, 
and OPEN. 


20-30 
30-40 
40-50 
50-60 
60-70 
70-80 
80-90 
90-100 
100-110 
1 10-120 
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4. 


DISPLAY CONTROLLER 


The Display Controller coordinates all communication between the operator 
at the display terminal and the application program (Vortex) executing in the PDP-11 
computer. In particular, the Display Controller performs the following functions: , 

1. processes data tablet inputs from the operator, 

2. processes keyboard inputs from the operator, 

3. processes information outputs from the application 
program (Vortex), 

4. processes display control information from the Display 
Library, and 

5. performs all input and output to the terminal. 

Basically, the Display Controller is organized as two processors to 
perform the primary functions listed above. The two processors are: 

o User Input Processor (1 and 2) 

o Application Program Request Processor (3) 

In addition, there are routines that are essential for the proper execution of these 
processors but are not a part of either one. They perform ail accessing of the 
Display Library information and the input/output processing. They will be referred 
to in this section as: 

o Common Utility routines (4) 

o Input/Output Inter rupt Proces sing (5) 

Figure 4-1 illustrates the structure of the Display Controller and how 
its processors interface with external devices and the application program. 

Descriptions and flowcharts of the Display Controller, as categorized 
above, follow. 

4. 1 User Input Processor 

The User Input Processor (whose component block diagram is depicted in 
Figure 4-2) processes both data tablet inputs and keyboard inputs from the operator 
at the display terminal. In response to data tablet inputs, it outputs a graphic 
cursor that tracks the position of the data tablet cursor on the tablet; This pro- 
cessor also passes information to the application program regarding points selected 
by the operator through depression of the data tablet cursor. 
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Processing keyboard inputs involves both, echoing the keyed-in data back 
to the operator at the terminal and passing the data to the application program fci. 
further processing. 

Various application program requests are referenced in this section. The 
processing of these requests is discussed in Section 4.2. 

User Input Executive 

The tJser Input Executive {DC (Figures 4-3 through 4-5)) initiates processing. 
This routine performs initialization of the DOS disk driver, data tablet input, and certain 
hardware addresses needed by the controller. It calls ATVWS and ONCE to perform 
various initialization functions for the application program. DC then brings up the 
first display on the screen and initiates the input search loop (LOOPl) which continues 
to process for the duration of execution. 

When execution has been terminated, DC then releases the DOS disk driver, 
terminates data tablet input, and resets those hardware addresses previously 
initialized by it. 

Process User Input 

The Process User Input routine (LOOPl (Figure 4-6)) repeatedly checks 
for user input from the data tablet and the keyboard which if present has been 
extracted from the hardware input register and stored in a table for this routine 
by the Input Interrupt Processor. LOOPl searches this table for three specific 
types of input: 

o Data tablet SUB command coordinates (data tablet cursor 

is in proximity of data tablet) 

o Keyboard character 

o Data tablet GS command (point/option selected via data tablet 

cursor by operator) ' 

If input is present, it is processed by the appropriate routine. LOOF20 is then 
executed to refresh the screen(s). LOOPl then determines if the application pro- 
gram has requested termination through the Reset Request to the controller. 

As long as termination has not been requested, LOOPl repeats its search for 
input. 

Process SUB Command 


Process SUB Command routine (LOOP50 (Figure 4-7)) processes the 
SUB command input received from the data tablet whenever the data tablet cursor 
is in proximity of the tablet. This processing consists of using the coordinates 
that are transmitted with the SUB command to activate and build an output string 
that displays the graphic cursor on the screen to indicate the current position of 
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the data tablet cursor. The graphic cursor consists of a horizontal bar and a 
vertical bar intersecting at the point being tracked. 

As the coordinates are being converted to the output string format, any 
part of the generated cursor that exceeds the range of the data tablet (and there- 
fore the display screen) is clipped to prevent wraparound vectors from appearing 
on the screen. Also, if the data tablet position being tracked is outside the viewing 
area of the screen but still in range of the tablet (i. e. , in the menu area), the 
graphic cursor output string is deactivated to eliminate unnecessary output to 
the display. 

The graphic cursor is sent only to the primary screen. The primary . 
screen is that screen so designated by the application program through an Auxiliary 
Screen request. The default is screen 1 (the screen with the keyboard). 

Process Keyboard Input 

The Process Keyboard Input (LOOP75 (Figures 4-8 through 4-11)) processes 
all input keyed-in by the operator at the display terminal. 

Key-in field data is that data which is input in response to a key-in field 
designated by n _ n characters in the text of the display. The positioning of the alpha- 
numeric cursor always indicates the next available field position for such input. 

There are two characters that have special meaning as keyboard input. 

These characters are the carriage return and the rubout. 

The carriage return character indicates end of input and causes the 
data already keyed-in to be transmitted to the application program’s designated 
program. This routine must have access to the key page of the Display Library 
for the display currently on the screen. If this ’page’ is not currently in core, 
the LIBINP routine reads it from disk where the library resides. 

If there is no keyboard input prior to the carriage return, the alphanumeric 
cursor is positioned at the next/first key-in field via the information in the key page. 
If there is prior data, it is passed to the application program’s next program 
(specified in the key page) via ROOTEX for processing. 

The input data is set up along with other control information in the format 
shown in Figure 4-12. Each parameter is described below: 

Terminal ID : Identifies the user terminal through which the input was transmitted. 
This value is significant only for multi -terminal systems. 

Next Program : Contains the 4-character name of the program to be executed 
within the application program to process the operator input. 

Current Display : Contains the 4-digit decimal number of the display that is 
currently being presented to the operator. 
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OPERATOR INPUT INTERFACE PARAMETER LIST 



Figure 4-12. 



Option Num ber; Contains the number of the compose field or option selection 
within the input display associated with this transmission. 

Data Length; Contains the number of characters (bytes) of data being sent 
to the application program. 

Data Type: Designates which type of input is being transmitted to the • 

application program. 


0 - data tablet option selection 

1 - keyboard compose field 

2 - data tablet image design point 


3 - keyboard image design character 

Data Buffer: Contains the input characters (bytes) being transmitted to the 
application program. 


If the key page indicates a next display is associated with the key-in field, 
NXTDSP routine is executed to bring up the display and then the next program 
(also indicated in the key page) is called to process the data. If a next display 
is not specified, the next program is called and the alphanumeric cursor is 
positioned at the next/first key-in field of the current display. 

The rubout character indicates that the character keyed-in previously 
is to be ignored. If there is no previous data, the rubout is ignored. If there 
is data, the last character is deleted as input and the alphanumeric cursor is reposi- 
tioned at the previous character position. 

If the keyboard input character is neither the carriage return nor the 
rubout, it is saved as valid input providing the input field is not already full. 

The key-in field is limited to the size specified in the key page. The keyboard 
input character is then echoed on the screen. The character keyed-in to a key- 
in field is displayed in permanent store mode over the ' T character in the display 
and the alphanumeric cursor is positioned at the next 1 1 . 

Process GS Command 


The Process GS Command routine (LOOP58 (Figure 4-13)) processes 
the GS command input received from the data tablet whenever a point is selected 
with the data tablet cursor. The graphic cursor is deactivated and the library 
pen page is read into core. 

The point selected must correspond to a pen option in the pen page for the 
input to be valid. The pen page is searched until the pen option matching the selected 
point coordinates is found. If a next program is specified for the selected pen option. 
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the parameter list is set up (Figure 4-12). If a next display is also specified, it is 
brought up on the screen by the NXTDSP routine and the next program is executed 
through the INVPGM routine. If a next program is not specified but a next display 
it:, it is brought up by NXTDSP. 

Refresh Screen 


The Refresh Screen routine (LOOP20 (Figure 4-14)) initiates all refresh 
mode output to the screen. This includes; 

o graphic cursor in response to SUB command from the data 

tablet, 

o refresh message in response to Refresh Message application 

program request, and 

o keyboard input echo in response to keyboard command input. 

4. 2 Application Program Request Processor 

The Application Program Request Processor (whose block diagram is 
depicted in Figure 4-15) processes all display I/O requests from the application 
program. There are 11 types of requests that are handled by this processor. 

They are; 

o tabular output 

o new display 

o one -line message 

o character plot 

o vector plot 

o erase screen(s) 

o refresh message 

o hard copy screen(s) 

o auxiliary screen 

o reset options 

o high-speed output 

The application program communicates its request to the Display Controlle 
through a standard parameter list as shown in Figure 4-16 with associated buffer 
formats shown in Figure 4-17. 
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Figure 4-15 
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APPLICATION PROGRAM REQUEST TO DISPLAY CONTROLLER PARAMETER FORMATS 


Request 

Code 

Function 

Parameters 

1 

2 

3 

1 

Tabular Output 

© 

< 

A(data length) w 

A(bu£fer format A) ^ 

2 

New Display 

A(2) 

A (display name) 

A(overlay option) © 

3 

One-Line Message 

A(3) 

A (data length) 

Afbuffer format A) 

4 

Character Plot 

_ . A(4) 

A (data length) 

A(buffer format B) 

5 

Vector Plot 

A(5) 

A(data length) 

Afbuffer format C) 

7 

Erase 

... A(7) 

A(screen #) 


9 

Refresh Message 

A(9) 

Afdata length) 

Afbuffer format B) 

10 

Hard Copy 

> 

0 

A(screen #) 


11 

Auxiliary Screen 

A (11) 

A(screen #) 


13 

Reset 

A( 1 3) 

A(option #) 


14 

High-Speed Output 

A(14) 

© 

A (data length) w 

Afbuffer format A) 


(T) A( ) indicates address of parenthesized element. 

(2) See Figure 4-17 for formats. 

(5) Parameter 2 

I = refresh message 
16 = terminate to DOS 
32 = temporarily return to DOS 
64 = return to Display Controller 

(?) All data lengths are byte lengths. 

(5) Parameter zeroed when output complete; must be 
set before each call, 

(5) 0 = new display replaces current display. 

-1 = new display overlays current display. 

next display = parameter 3 new display overlays parameter 2 
new display which overlays current display. 


Figure 4- 16 











PARAMETER BUFFER FORMATS 



Plot 1 


Plot 2 


Format B 



Format C 



(T) Character = ASCII Character 

(2) Screen # = 1 screen 1 

2 screen 2 

3 both screens 

(D Character Size = -1 for refresh 

vector plot message; otherwise not 
used„ 


© X = 0-1023 

(D Y = 0-800 

© Plot Type - -1 solid 

© disconnects within a plot represented 
by -K 

(8) a plot buffer (series of x, y points 
and disconnects) for refresh vector 
plot message. 


Figure 4-17 
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Each parameter is set up as the address of the value being passed as 
the parameter. For all request types the first parameter is the address of the 
request code number. The second and third parameters vary according to 
request type . 

All requests from the application program for output to the display are 
directed to the primary screen unless a screen number is specifiable through 
the parameter list. The primary screen is that screen to which the displays 
are being directed by the controller. The default is screen 1 (the screen with 
the keyboard), but is changeable through the application program Auxiliary 
Screen Request. Additionally, all characters output will be the standard hard- 
ware size even where specifiable through the parameter list. 

Display Input/Output Executive 

The Display Input/Output Executive (DISPIO (Figure 4-18)) is called 
directly by the application program to execute 1 of the 11 requests listed above. 
DISPIO determines which type of request is being made and calls the appropriate 
routine to process it. When the request processing is complete, DISPIO 
returns to the application program that called it. 

Tabular Output - Request Code 1 

The Tabular Output routine (TABOUT (Figure 4-19)) processes requests 
for the output of data to the screen to areas predefined in the Display Library fill 
page for the display currently on the screen. 

The location of the fill page for the current display within the Display 
Library is calculated from the Display Library index and the appropriate block 
is read into core from the Display Library by the LIBINP routine. Using the 
information in the fill page, the first fill field is set up in an output string with 
the data passed from the application program and sent to the display by the 
DSPOUT routine. This process is repeated until (1) all the data from the appli- 
cation program has been sent to the display or (2) all the fill fields specified in 
the fill page have been used. The alphanumeric cursor is then repositioned by 
the ALPCRS routine to the location it occupied before the tabular output was sent. 

New Display - Request Code 2 

The New Display routine (NEWDSP (Figure 4-20)) determines if the new 
display is to overlay the current display or replace it. If it is to overlay, it 
then determines if a third display is to overlay the second. It then brings up the 
appropriate displays accordingly by calling the NXTDSP routine. 

One-Line Message - Request Code 3 

The One-Line Message routine (ONELIN (Figure 4-21)) processes the 
application program request for output of a message to the left side of the bottom 
line of the display screen. This message is output in permanent storing mode. 
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Therefore, if there already was a one-line message on the screen, a fresh copy 
of the current display is brought up before the newly requested message is output. 
The DSPOUT routine is called to perform the output,, The alphanumeric cursor 
is then repositioned by the AL.PCRS routine to the position it occupied before the 
one -line message was output. 

Character Plot - Request Code 4 

The Character Plot routine (PLCHAR (Figure 4-22)) processes the 
application program request for a series of alphanumeric characters to be output 
to any specified positions on the screen in permanent stbring mode. 

Each series of characters; specified by the application program is set 
up in an output string preceded by the x-y position on the screen. The DSPOUT 
routine is called to output the string to the terminal and the ALPCRS routine 
repositions the alphanumeric cursor to its position prior to output of the charac- 
ter plot(s). 

Vector Plot - Request Code 5 

The Vector Plot routine (PLVECT (Figure 4-23)) processes the applica- 
tion program request for a series of vectors to be drawn to any specified positions 
on the screen in permanent storing mode. The output string is set up as a series 
of x-y points. If a disconnect is indicated by the application program, a new 
output istring is set up to begin another series of vefctors. When the entire output 
string is set up, the DSPOUT routine is called to send the output to the screen. 

Erase Screens - Request Code 7 

The Erase Screens routine (ERASE (Figure 4-24)) processes the applica- 
tion program request to erase either or both screens. The erase command string 
is set up for the requested screen(s) and DSPOUT routine is called to output the 
command string. 

Refresh Message - Request Code 9 

The Refresh Message routine (REFMSG (Figure 4-25)) processes the 
application program request for a series of alphanumeric mes sages or vector 
plots to be output to any specified positions on the screen in non-storing or 
write -through mode. 

The output string is set up as a series of character plots and vefctor plots 
except they are specified in write -through mode. This routine is only responsible 
for setting up the output string. The actual output is done by the Refresh Screen 
routine (LOOP20 (Figure 4-14)), 
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Hard Copy Screens - Request Code 10 


The Hard Copy Screens routine (HARDCP (Figure 4-26)) processes the 
application program request to hard copy either or both screens. The hard 
copy command string is set up for the requested screen(s) and the DSPOUT 
routine is called to output the command string. 

Auxiliary Screen - Request Code 1 1 


The Auxiliary Screen routine (DCCNTL (Figure 4-27)) processes the 
application program request to establish a specific screen to be the primary 
screen (the screen to which all display information is directed). 

Reset Options - Request Code 13 


The Reset Options routine (RESET (Figure 4-28)) processes the applica- 
tion program request to reset certain conditions established for Display Controller 
processing. These options are: 

o Deactivate refresh messages 

o Terminate execution - return to DOS 


o Temporarily return to DOS 

o Return to Display Controller 


High-Speed Output - Request Code 14 

The High-Speed Output routine (HSOUTP (Figure 4-29)) processes the 
application program request for output of preformatted data directly to the display 
screen. 


If a previous output request is still being processed, the currently requested 
output is stacked in a Display Controller table for later output. If there is no output 
in progress, the output of this requested data is set up and begun. The first byte 
of data is moved to the output register and the output interrupt is enabled. The 
remainder of the data from the request is output on an interrupt basis by the 
OUTINT routine. 

4. 3 Common Routines 

There are several routines that perform general functions required by 
both the User Input Processor (Section 4. 1) and the Application Program Request 
Processor (Section 4. 2). These routines are: 

o Position Alpha Cursor - ADPCRS 
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o Send Command String to Display - DSPOUT 

o Call Next Program - INVPGM 

o Read Display Library - LIBINP 

o Bring Up Next Display - NXTDSP 

o Set Up First Key-In Field - KEYSET 

Position Alpha Cursor 

The Position Alpha Cursor routine (ALPCRS (Figure 4-30)) sends the 
alphanumeric cursor to the x-y position set up in the output string by the 
calling program. 

Send Command String to Display 

The Send Command String to Display routine (DSPOUT (Figure 4-31)) 
processes all output requests whose output strings are formatted by the Display 
Controller (i. e., all output except High-Speed Output requests from the application 
program). This routine sets the output up as a High-Speed Output request and 
calls DISPIO to process it as such. 

Call Next Program 

i 

The Call Next Program routine (INVPGM (Figure 4-32)) calls the applica- 
tion program to execute the next program indicated in the parameter list (Figure 
4-12) set up by the routine that called INVPGM. INVPGM initiates the data tablet 
to send-point mode so that the application program processing will not be interrupted 
by data tablet input. INVPGM calls the Executive (ROOTEX) which in turn executes 
the next program. 

When the next program has completed processing, INVPGM reestablishes 
burst mode for data tablet input. 

Read Display Library 

The Read Display Library routine (LIBINP (Figure 4-33)) reads the 
Display Library block number as set up by the routine that called LIBINP. 

Bring Up Next Display 

The Bring Up Next Display routine (NXTDSP (Figure 4-34)) processes 
the request for a display to be presented on the screen. DSPOUT is called first 
to erase the primary screen unless the next display is to overlay the current 
display. If the display to be brought up is specified as PREV, the display history 
table is accessed to determine the name of the previous display. If the next display 
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is not the current display, the Display Library index is read by LIBINP and then 
searched for the next display entry. (If the next display is the current display, its 
index entry is already in core. ) 

Using the index, the location of the text page is determined. The text page(s) 
is read by LIBINP and output to the screen by DSPOUT. If a second overlay has 
been requested, this entire sequence is repeated. 

KEYSET is called to set up for the first key-in field, and position the alpha- 
numeric cursor accordingly. The graphic cursor, the refresh message, and the 
keyboard input echo are all deactivated. 

Set Up First Key-In Field 

The Set Up First Key-In Field routine (KEYSET (Figure 4-35)) processes 
the setup of the first key-in field in the current display (if one is present). The 
routine first reads in the key page for the current display from the Display Library 
through LIBINP, Using the key page information, this routine sets up appropriate 
counters and pointers and then positions the alphanumeric cursor at the beginning 
of the first key-in field. 

4. 4 Input/Qutput Interrupt Processors 

The Input/Output Interrupt Processors perform all I/O to the terminal through 
the input/output hardware registers. They both process on an interrupt driven basis. 

Output Interrupt Processor 

The Output Interrupt Processor (OUTINT (Figure 4-36)) moves the next/ 
first byte of output into the output register. (The High-Speed Output routine (HSOUTP 
(Figure 4-29)) is responsible for initiating the output process and stacking waiting 
requests. ) 

When the OUTINT routine determines that all bytes have been sent for the 
current request, it sets the output string length in the output requestor's area to 
zero to indicate completion. If another output request is waiting, it removes it 
from the wait stack and moves the first byte of the output string into the output 
register, thus initiating the next request. 

All entries to this routine are through the output interrupt address set up 
by the Initialization routine (INIT (Figure 4-4)). 

Input Interrupt Processor 

The Input Interrupt Processor (INPINT (Figure 4-37)) processes all 
input received through the input register and sets it up for further processing by the 
User Input Processor (Section 4. 1). This input includes data tablet input and 
keyboard input both received one byte at a time. 
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Data tablet input is received in a series of five bytes, a command byte 
followed by four coordinate bytes. The command byte is either a SUB, GS, or US. 
From data tablet input only the SUB command, its coordinates, and the GS 
command are saved for further processing. All other bytes are ignored. 

If the input is not part of one of the valid five byte input strings mentioned 
above and determined not to be noise input, it is saved as keyboard input. 

All entries to this routine are through the input interrupt address set up 
by the Initialization routine (INIT (Figure 4-4)). 

4. 5 Disk I/O Handling 

The two routines in this area are called to perform all I/O to the disk. 
Initialize Data Set Device 


The routine (INITDS (Figure 4-38)) which performs this function issues 
a DOS system macro to initialize the specified device to insure that the device 
driver is in core for subsequent I/O operations. 

Read/Write Data Set 


This routine (DKTRAN (Figure 4-39)) performs the basic function of 
reading and writing records from and to data sets on disk. It performs error 
checking prior to and following the I/O function performed. This checking is 
done to determine if the data set to be read or written exists, if the record number 
to be read is valid, and if any error occurred on the I/O operation. A return 
parameter is set accordingly. 

4. 6 Executive 


The Executive (ROOTEX), as shown in Figure 4-40, directs the input from 
the display to the appropriate application "next” program. After determining that 
the indicated next program is a valid program, ROOTEX gives control to the 
required routine. 
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5 . 


DISPLAY LIBRARIAN 


To minimize the on-line core and time requirements necessary 
to create each individual application program oriented display and to 
provide a completely general graphics capability., all displays are .pre - 
formatted by an off-line Display Librarian. The librarian accepts card 
images of the text and control information defining each display and 
creates a "book" of displays. 

The display book resides on disk and contains a display chapter 
for each display within the book. A display index is generated by the 
librarian defining the location of each display chapter within the display 
book. Each chapter is further sub-divided into two "pages": 

o Text Page 

o Control Page 

The text page of each display chapter contains display text infor- 
mation in an expanded format consisting of embedded graphic control 
commands. The text page exists in a format that is ready for immediate 
generation on the display screen and requires no editing, scanning, or 
unpacking in real time. The control page is made up of the pen, keyboard, 
and fill pages that provide the control information needed by the real 
time Display Controller to respond to tablet pen and keyboard inputs 
and application program fill-in requests. 

During real time operation the Display Controller, upon detecting 
a tablet pen selection or a keyboard input, uses the control information 
associated with the display being viewed to determine the user specified 
action to be taken. 

The primary purpose of the Display Librarian is the creation of 
the preformatted display book from user defined input. To insure that 
the data can be correctly displayed and operated on during real time 
operations, it is necessary for the Display Librarian to perform extensive 
error checking on the user's input data prior to creating the display 
chapter on disk. The librarian can therefore serve as a display assembler 
and aid the user in defining his displays. During the processing of a 
display, records that contain errors are listed along with messages 
describing the errors. Each display must be completely free of errors 
before it is added to the display book on disk. 
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5, 1 Display JBook 

The display book is a sequentially organized contiguous file on 
disk consisting of the display index and a display chapter for each display 
within the book. Figure 5-1 presents the process by which the display 
book is generated and the organization of the display chapters and the 
display index on disk. 

5.1.1 Display Index 

The display index is the first record of the display book and defines 
the location of each display chapter within the display book file. The 
display index is segmented into 25 6 -word blocks; the format of the index 
is presented in Figure 5-2, If more than one ihdex record is necessary 
to define the display chapters, i.e., there are more than 50 displays in 
the "book, " additional index records are placed at the end of the display 
chapters. The first word of each index record contains the relative block 
number of the next index record. 

The relative block number of the display chapter is the relative 
block number within the display book file of the first text page block. The 
blocks within a display chapter are organized sequentially as text blocks 
followed by control blocks. If any of the blocks are not required for a 
display, the appropriate display index entry is set to zero. The display 
name is an integer between 0001 and 9999 defined by the user’s input 
card. 


The Display Controller reads the display index blocks, locates 
the appropriate display chapter index by virtue of the display name, and 
then uses the relative block number of the display chapter to access the 
display within the display book file, 

5.1.2 Display Chapters 

The display chapters are divided into two "pages": the text page(s) 
and the control page(s). The contrbl page(s) is made up of the pen, keyboard, 
and fill pages. The text and control pages are segmented into 25 6 -word 
blocks. 

Text Page 

The text page contains the information that is to be displayed to the 
operator. This information consists of embedded graphic orders, character 
control orders, alphanumeric information and special symbols that have 
meaning to the operator and the Display Controller. The "#" symbol defined 
by the user input indicates locations where an application program may fill-in 
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tabular data. The 1, # n symbol is replaced by a blank within the text page 
when a display is presented to eliminate the need to refresh the entire 
display picture when an application sends data to the screen. The data 
is displayed in the format initially defined by the symbols. The "j " 
symbol indicates keyboard input areas and is replaced by an underline 
(__} character within the text page and display picture. The pen option 
areas are defined to the Librarian as the area between the two enclosing 
symbols "c" and n The characters within the symbols are displayed 
on the display picture and comprise one pen option area. 

In addition, four character sizes are supported by the Display 
Librarian and character control orders are defined within the text page 
to display the different sizes. Any combination of the character sizes 
may be defined for a display and the Librarian will insure the correct 
spacing both horizontally and vertically. A Ithough multiple character 
sizes are supported by the Librarian, they are only functional. when the 
hardware capability exists. 

Control Pages 

The pen, keyboard, and fill pages are grouped together under the 
general category of control pages because they supply the control information 
used by the Display Controller during real time operation to process inputs 
to the respective fields. 

Pen Page 

The pen page of the display chapter contains the control information 
necessary to define the areas of the display text that may be selected with 
the graphics tablet pen. The format of the pen page is depicted in Figure 
5 -3. Each pen entry is 7-words in length consisting of: 

o the X-, Y-coordinate of the first character within the 

pen field, 

o the A X and A Y of the last character within the pen field, 

o the next display to be presented to the user when this 

pen field option is selected with the tablet pen, and 

o an optional 4-character application program name to . 

be given control when this pen field is selected. 

The Display Controller determines the dimensions of the pen field 
from the starting X-, Y -coordinate s of the first character and the AX and 


- 131 - 



PEN PAGE FORMAT 


16-bit word 


# Pen Fields in the Displa 


X -Coordinate for Start of Field 


Y-Coordinate for Start of Field 


A X to End of Field 



A Y to End of Field 


Next Display Name 


4-Character Next 
Program Name 


Figure 5-3 






A Y of the last character in the field. When the tablet pen input is received 
by the Display Controller, its coordinates are checked against the 
dimensions of each pen field within the pen page to determine which option 
was selected. When the selected option is found, the next display and 
the next program associated with the pen field are displayed and executed. 

Keyboard Page 

The keyboard page contains the following control information for 
each compose field within the display text (see Figure 5-4): 

o the total number and size of characters within the compose 

field, 

o the X-, Y-coordinate of the first character within the field, 

o ! the next display name to be presented to the operator, and 

o the next program name to receive the compose data. 

The Tektronix keyboard permits the user to enter alphanumeric 
characters into computer storage for transmission to the application program 
The cursor keys on the keyboard control the compose field where the data 
will be placed. As each character is entered, it is displayed to the operator 
in one of the character slots indicated by the underline (_) character for 
verification and editing. After entering the data, the user presses the 
transmission key to pass the data to the application program associated 
with the compose field. 

Fill Page 

All areas of the display text that are available for application program 
tabular data output must be predefined to the Display Librarian by the special 
symbol " The librarian constructs a fill page entry for each of these 
areas defining their location within the display text. Each fill entry is de- 
limited by either a non-# symbol or a new display line. The format of the 
fill page is depicted in Figure 5-5. 

5 . 2 Librarian Processing Flow 

In creating the user's display book, the Display Librarian program 
executes five levels of processing. These five levels include: 

1. Control card processing 
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Pen, compose, and line card processing 

3. Text card processing 

4. Output formatting 

5. Cleanup 

Levels two, three, and four are executed for each display being defined 
whereas level one is executed only when display control cards are detected 
in the input stream and level five only upon receiving an end-of-fran 
indication. Figures 5-6 and 5-7 present a general flow of the Display 
Librarian from job initiation to job end. 

The following subsections describe briefly and depict in flow- 
charts the processing done by the librarian program on each of the above 
mentioned levels. 

5. 2. 1 Control Card Processing 

The output option card and delete cards are processdd on this 
level (Figure 5-8). If an output option card is received, the appropriate 
option flags are set; if the update option ( ,, U n ) is specified, the index 
of the old display book is read and maintained in core. The program then 
returns to read the next input card. 

If the control card read is a delete, the display name specified in 
the card is compared against the display names in the index until the 
display is found or all entries are checked. If the display is found, the 
index entry for the display is deleted and the message DISPLAY xxxx HAS 
BEEN DELETED FROM THE LIBRARY is written to the printer. If the 
display name is not in the index, the message DISPLAY xxxx NOT FOUND 
IN LIBRARY is written. 

5.2.2 Pen, Compose, and Line Card Processing 

It is on this level of processing (Figure 5-9) that the librarian 
program begins building the pen and key entries (Figures 5-3 and 5-4) 
in the display contrbl page(s). 

In processing a pen card, the names of the next display and next 
program are stored in the pen page. If the X-, Y-coordinate positions 
are presemt on the input record, the AX and AY are calculated and all 
aee placed in the pen page completing the entry for the pen field. In 
the cases where the X-, Y -coordinates are not on the pen card, the pen 
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PROCESS CONTROL RECORDS 



Figure 5-8 








PEN, COMPOSE, AND LINE RECORD PROCESSING 




Figure 5-9 
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field entries are completed during the text processing (level 3) when the 
pen field characters " <" and "> 11 are encountered in the display text. 

On receiving a compose card, the librarian saves the next display 
name, the next program name, and the compose field length in the key- 
board page. The remaining information is supplied to the compose field 
entry during the text processing. 

If the input record received, is a line card, the program determines 
the type of line being defined and compares the values specified against 
the limits allowed. If there is no error, it enters the specified values 
into either a coordinate table or a characte r /line table. Values entered 
in the coordinate tablet are not operated on again until the fourth level 
of processing when they are placed in the display text page in the form 
of vector commands. The values placed in the characte r/ line table 
are converted to X-, Y-coordinate positions during text processing when 
the specified character number and line number are encountered. 

5.2.3 Text Card Processing 

During the text card processing (Figures 5-10 and 5-11), the 
librarian program performs three functions. These include verifying 
that the users text data can be successfully generated on the display 
screen completing the pen, key, and fill page entries and converting 
the vector entries in the character/ line table to X-, Y -c oordinate s . 

In determining whether the text can be generated on the screen, 
the librarian verifies that each text input record does not contain more 
characters than can fit on a single display line (i. e. , 74 size 1 characters, 
37 size 2 characters etc. ), checks each character on the line to insure 
that it is displayabie and verifies that the number of text lines does not 
exceed 35 (size 1). The pen field defining characters M < " and ">■ " 
and the change character size specifications are not included in the text 
character count. 

On detecting a compose or fill-in character in the text, the Display 
Librarian stores the X-, Y-coordinate s of the field in the key or fill 
page along with the present character size and, for fill field, the number 
of characters in the field. For compose fields the number of compose 
characters contained on the input record is compared against the value 
specified on the compose card to insure that there is no error in the field 
definition. 

When pen field characters are encountered in the text, the X-, Y- 
coordinates are saved in the pen page along with the calculated t X and 
K Y to the end of the field. 
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While the text characters are being "verified, " the Librarian 
determines from the char acter/ line table if a vector initiation or termina- 
tion is specified for the present character/ line position. If so, the 
char acter / line specification is replaced in the table, with the actual X-, 

Y - coordinates . 

After each text record is read and verified, it is written to a 
scratch file on disk to be later operated upon by the output formatting 
routines. 

5.2.4 Output Formatting 

Upon receiving a display End record, the librarian enters the 
fourth level of display processing (Figure 5-12). It is on this level that 
the printed picture of the display is generated; if there are no errors 
in the display definition, the pr eformatted text pages are created and 
added to the display book along with the control pages. 

Each text record for the display is retrieved from the librarian 
scratch file, formatted to effectively represent how the data will appear 
on the screen, and printed on the user assigned output device. If there 
are no errors, the display data is stored in the text page along with the 
necessary control commands to display on the screen. After all the text 
records have been retrieved, preformatted in the text pages, and written 
to the printer, the librarian uses the X-, Y -coordinates from both the 
coordinate table and character /line table and creates the display control 
commands to cause the generation of the specified vectors. These commands 
are stored following the user defined text data, thus completing the pre- 
formatted text page. 

Upon completion of the text page, the Display Librarian adds the 
newly defined display to the display book on disk and updates the index 
to reflect its presence. 

5.2.5 Cleanup 


When attempting to read the next user input record the Display 
Librarian receives an end-of-job indication, this final level of processing 
is executed (Figure 5-13). If a new display book was created from the 
user's display data or an old book was updated without any of the old 
displays being deleted or replaced, the librarian adds the display index 
to the book on disk and terminates. If, however, during update of a 
display book, one or more of the old displays was deleted or replaced, 
the librarian at this time compresses the display chapters and the display 
index to eliminate all unused areas and then terminates. 
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6 . 


PROGRAM DISPLAYS AND OUTPUT 


6. I Program Displays 

The user interacts with VIDS and controls the VIDS operation by 
responding to a set of displays which are placed on the screen. These displays 
are: 

o Mode Selection (see Figure 6-1) 

o System Parameter Selection (see Figure 6-2) 

o System Parameter Selection (Post-Analysis) (see Figure 6-3) 

o Aircraft Selection (see Figure 6-4) 

o Aircraft Dependent Parameters Selection (see Figure 6-5) 

o Aircraft Dependent Parameters Selection (Po st- Analysis) 

(see Figure 6-6) 

6. 2 Program Output 

Depending on which options are selected from the above displays, data 
will be output in one or a combination of the following methods: 

o Unprocessed data recorded on magnetic tape. 

o Display of vortex information in tabular form (see Figure 6-7). 

o Display of vortex positions as a function of time (see Figure 6-8). 

o Display of vortex locations in an X-Y coordinate system 

(see Figure 6-9). 

o Display of raw data with vortex centers marked (Scatter Plots) 

(see Figure 6-10). 

o Listing of raw data. 

6.2.1 Magnetic Tape Output 

Data is recorded on the magnetic tape in the following format: 
o One file per flyby. 

o One or more fixed length records per frame (1 record for 

each 1000 data points or portion of 1000) of LDV data. 
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o Data from each LDV system is contained in separate records. 

o There is no fixed order of records corresponding to a given 

LDV system. 

o Each record contains 4009 integer words defined as follows: 

IFL.Y - flyby number. 

IFRM - frame number. A positive value indicates 
that the data was received from VAN 1. A negative 
value indicates that the data was received from VAN 2. 

- ITMINT (2) - two words containing the time that the 
first data point was received for this frame. 

ITMEND (2) - two words containing the time that the 
last data point was received for this frame. 

IDAY - number of the day of the year. 

- IPLN - index for plane type. 

NUMPTS - number of data points in a frame. 

IX - 1000 word array containing the X -coordinates for 
the data points in counts. 

IY - 1000 word array containing the Y-coordinates for 
the data points in counts. 

1NTENS - 1000 word array containing intensity and 
filter information for the data points in counts. Bits 
0 through 6 contain the number of filters and bits 7 
through 14 contain the intensity of the point. 

- IVEL - 1000 word array containing velocity informa- 
tion for the data points in counts. Bits 0 through 6 contain 
the maximum velocity. Bits 8 through 14 contain the 
peak velocity. 

6.2.2 Time -Based Plots 

Time-based plots (see Figure 6-8) are generated according to the 
following format: 

o The screen is divided into four quadriles. 

o VAN 1 data is displayed in the top quadriles. 
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o VAN 2 data is displayed in the bottom quadriles. 

o Height of the vortex centroid as a function of time is 

displayed in the left quadriles. 

o Horizontal location of the vortex centroid as a function 

of time is displayed in the right quadriles, 

o The maximum time that may be displayed is 90 seconds, 

o An M * ,! is used to represent the port vortex. 

o An "o" is used to represent the starboard vortex. 

q. . An n s" is used to represent a single vortex. 

6.2.3 X-Y Plots 

X-Y plots (see Figure 6-9) are generated according to the following 

format: 

o VAN 1 data is displayed on the top half of the screen. 

o VAN 2 data is displayed on the bottom half of the screen. 

o The vortex centroid is located in an X-Y coordinate system 

with frame 1 data represented by an A, frame Z data by a 
B, etc., for the first 26 frames. After 2 6, frames the .cycle 
is repeated. 

6. 2. 4 Tabular Bata 

Tabular data (see Figure 6-7) is displayed according to the following 

format: 

o VAN 1 data is displayed on the left half of the screen. 

o VAN 2 data is displayed on the right half of the screen. 

o A frame of data is entered as a blank line if there are 0 

data points or more than 1000 data points. 

The headings of the columns are: 

o FR - 2 -digit frame number. If the frame number is greater 

than 99, only the right 2 digits of the number are displayed. 

o DATA PTS - number of points contained in this frame of data 
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o COR FT - number of data points in the correlation area for 

a vortex. P represents port and S represents starboard. 

o NOISE - the number of noise spikes which were found in pro- 

cessing the vortex information. P represents the number 
found while processing the port vortex and S represents the 
number found while processing the starboard vortex. 

o ANGLE - MN represents the minimum angle at which a data 

point was found during the scan. MX represents the maxi- 
mum angle at which a data point was found during the scan. 

o PK VEL - P represents the peak velocity found in the port 

vortex. S represents the peak velocity found in the staboard 
vortex. 

o TIME i represents the time at whichthe vortex centroid was 

found with respect to the time that the first data point was 
received from this flyby. 

o PORT POS - gives the X and Y centroid values for the port 

vortex. 

o STARB POS - gives the X and Y centroid values for the 

starboard vortex. 

6. 2. 5 Scatter Pldts 

Scatter plots (see Figure 6-10) display raw data points showing their 
location in an X-Y coordinate system and their velocities within ten ft. / sec. 
and also show the vortex centroid. The points are represented by numerals 
0-9 with the following velocity correspondence: 


= 0 

20-30 

ft. / sec. 

-1 

30-40 

ft. / sec. 

-2 

40-50 

ft. / sec. 

-3 

50-60 

ft. /sec. 

-4 

60-70 

ft. /sec. 

-5 

70-80 

ft. / sec. 

-6 

80-90 

ft. / sec. 

-7 

90-100 ft* / sec 
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-8 


100-110 ft. /sec. 


-9 1 10-120 ft. /sec. 

The points having the ten highest values are represented by 
the corresponding first ten letters of the alphabet and their 
values are printed on the bottom of the display. 

The centroids are represented by two large V's. 
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MC0DE2 : 

. WORD 

2 

ro 

66 

001164 

000007 



MCQDE3 * 

. WORD 

7 

i 

67 

001166 

000016 



MC0DE4 : 

. WORD 

14. 


68 

001170 

000001 



MBLK * 

. WORD 

1 


69 

001172 

000002 



MTWOi 

. WORD 

2 


70 

001174 

034033 



MBIG: 

, WORD 

34033 


71 

001176 

177777 



NONE* 

. WORD 

-1 


72 

001200 

000020 



MLGTH1 * 

. WORD 

16. 


73 

001202 

000000 



MNULL ■ 

. WORD 

0 


74 

001204 

000001 



MDISF« 

.WORD 

1 


75 


000000’ 




. CSECT 

KSTFL 


76 

000000 

000000 



KSTFLV : 

.WORD 

0 


77 

000002 

000000 



KPLN = 

. WORD 

0 


78 





5* 



o o 

79 


000001 ’ 




.END 






ATUWS 

SYMBOL TABLE 
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ATOMS 

000000 RG 


ATU1 

O00174R 

BB - 000200 

BLOCK 

000SS6R ‘ 


3NBT « 

000002 

BUF - ****** G 

BUFSAT = 

****** G 


BUFST = 

****** G 

BUFi - ****** G 

BUSY = 

****** G 


CNT 

000000 

CNTLB 000124R 

CNTLC 

000100R 


DISABL 

000462RG 

D I SABI O00550RG 

DISARA= 

000304 


DISARB- 

. 000314 

D ISP IO- ****** 6 

FCNTR = 

****** G 


FCNTW = 

****** G 

FILN = ****** 6 

FIN 

****** 6 


FIRSTA= 

* * * * * * G 

FRAMES- * ****** G 

FTOR = 

****** G 


FURST = 

****** G 

FUR IT » ****** G 

HALT 

000204RS 


HEADR = 

****** G 

HLT1 000216R 

HLT2 

000274E 


HLT3 

00031 OR 

HLT4 ©00260R 

HLT5 

000246E 


IBUFC * 

167754 

IFLD = ****** G 

I NIT 

000314R.G 


INITBF 

00 05 6 0 RG 

1NITB1 000604R 

INITDS- 

****** G 


INIT1 

000440RS 

INIT2 000370R 

IN1T3 

000404R 


IMIT4 

000422R 

INTAh * ****** 6 

INTAB = 

****** G 


INTAN = 

****** G 

I NT BA * ****** G 

INTBB = 

****** G 


INTBM = 

****** G 

INTCA 000136R 

INTCB 

000166R 


IMRD = 

000140 

1 WRDC * 000100 

KPLN 

000002R 

002 

KSTFLY 

000 00 0 R 

002 LEULA - 000300 

LEULB » 

000300 


LEULC « 

000300 

LEUS * 000100 

LKTRAN- 

****** G 


LNKBLK- 

****** G 

LOCK « ****** G 

L00P2 = 

****** G 


LRSEC = 

****** G 

LSECT = ****** G 

MB 1 6 

001174R 


MBLK 

001170R 

MC0DE1 001160R 

MC0BE2 

001162R 


MCODE3 

0011S4R 

MC0DE4 00116SR 

MC51 

000272R 


MDISP 

001204R 

MLGTH1 001200R 

. MNULL 

001202R 


NONE 

001176R 

NSGAD 001 046 R 

►— MSG1 

001060R 


MSG2 

001100R 

MSG3 001120R 

7 J MSG4 

0011 40 R 


MTMO 

001172R 

NEXT “ ****** G 

Y^obufa - 

167772 


OBUFB * 

167762 

OBUFC * 167752 

PC 

£000007 


PSM 

177776 

R0 “£000060 

R1 

*00 0001 


R2 

£000002 

R3 =£000063 

R4 

£000004 


RS ->'000005 

Rb 85 >*000006 

R7 

*000007 


SAM 

****** G 

SECNQ = ****** G 

SFLAGA- 

****** G 


SP 

*000006 

SREGft * 167770 

SREGB = 

167760 


SREGC = 

167750 

STORA = ****** G 

STORE - 

****** G 


STORES- 

****** G 

SWR = 177570 

UECTA = 

000300 


UECTB - 

000310 

UECTC - 000320 

MADE = 

****** G 


WRITE - 

****** G 


. ABS. 

000000 

000 





001206 

001 




KSTFL 

000004 

002 





ERRORS DETECTED s' 0 
FREE CORE-’ 11635. WORDS 
ATOMS, L3< ATOMS. 3 



APPENDIX B 
READ LISTINGS 




^GB BUS* 


^0-T BTBMBD 


- 175 - 



- 176 - 


READ DATA FROM LDU 1 AH D 2 
TABLE OF CONTENTS 


MACRO UR0S-01A 01 -JAN-72 00=13 


4“ 1 REQUEST A (END OF FRAME) 

5- 1 READ DATA FROM DR- 11 

6- 1 SWITCH AND WRITE 

7- 1 WRITE BUFFERS TO DISK 

8- 1 WRITE BLOCK NO. 

9- 1 INPUT BUFFERS 

10- 1 CONSTANTS 



READ DATA FROM LDU 1 AND 2 
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1 

Cl 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
18 
20 
21 
22 

23 000000 


.ML I ST 
. TITLE 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
.GLOBL 
. GLOBL 
. GLOBL 
- GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
.GLOBL 
. fiCRLL 
. MCRLL 
. PARAM 


TTM 

READ DATA FROM LDU 1 AMD 2 

FTOR 

HEADR 

FIRST A 

WADE , FUR I T , NEXT . SECNO 
FILM, FIN, WRITE 
IMTAA, INTAB, INTBA, INTBB 
SAW 

BUFSftT , BUFST , FRAMES , SFLAGA 

IMTAW, INTBMiBUSy 

FURST 

STORES 

LKTRAM , REGUST 

LNKBLK > FCMTW 

LOCK 

HALT 

BUF 

LSECT 

STORAt STORE 
. WAITR 
. PARAM 


-vl 

t 



READ DATA FROM LW 1 AMD 2 
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i- 


. MACRO 

PUSH 

3 


MOU 

R0,-(SP) 

4 


MOO 

Ri * — ( SP ) 

5 


MOO 

R2,--CSP) 

b 


MOU 

R3.-1SP) 

7 


MOU 

R4 « - ( SP ) 

o 


MOU 

RS»"(SP) 

9 


. EMDM 


10 

5 % 



11 


. MACRO 

POP 

12 


MOU 

C3P)+,R5 

13 


MOU 

CSP)+.R4 

14 


MOU 

(SP)+»R3 

IS 


MOU 

C SP ) + 1 R£ 

3 6 


MOU 

(3P)+jR1 

17 


MOU 

( SP ) + * R0 

13 


. ENDM 



oo 


G Q 

^ g 

HI Q 
O W 
G G 

w £ 



; SAME REGISTERS 


; RESTORE REGISTERS 



READ DATA FROM LDU 1 AND 2 MACRO UR05-01A 01- JAM-72 00:13 PAGE 3 


1 

000340 

LEUX - 340 

2 

000100 

LEWS ~ 100 

3 

000000 

CNT - 0 

4 

000002 

BNBT » 2 

5 

000004 

HDRW * 4 

6 

000006 

FNNP = 6 

7 

000010 

TIMS! = 8. 

S 

000012 

TIMS2 « 10. 

q 

000014 

TIMRl = 12. 

10 

000016 

/ TIMR2 - 14. 

11 

000040 

EOF = 40 

12 

000200 

BB = 200 

13 

000100 

EiW * 100 

14 

000020 

EOT = 20 

15 

000076 

DATNQ * 62. 

16 

000010 

SIZE = 8. 

17 

000370 

SI ZD - 248. 

19 


*# 

19 

167774 

I BUFA= 167774 

20 

000304 

UECTA = 304 

21 

167764 

I BUFB* 167764 

22 

000314 

UECTB = 314 

23 

006246 

TIMX2 = 6246 

24 ' 

006244 

TIfIXl <5 6244 


i PROCESS LEUEL 2 
; WORD COUNT 
i BLOCK CONTROL 
; HEADER WORD 

; FRAME NUMBER , SECTOR NUMBER 
; START TIME, HIGH ORDER 
; START TIME, HIGH ORDER 
; READ TIME , LOW ORDER 
; READ TIME , HIGH ORDER 
5 END OF FRAME 
{BUFFER BUSY 

5 BUFFER WAITING FOR WRITE 
; END OF TEST 

;NG. OF DATA POINTS PER BUFFER 

;DATA WORDS PER BLOCK 

; DR- 11 A INPUT BUFFER 
;B REQUEST UECTOR ADDRESS LDU 1 
5 DR- 11 B INPUT BUFFER 
;B REQUEST UECTOR ADDRESS LDU 2 


-j 

sO 



READ DATA FROM LDU .1 AND 
REQUEST A (END OF FRAME ) 


MACRO UR0S-01A 01-JAN-72 00«13 PAGE A 



oo 

o 


i 


J* 

S* 


jBTTL REQUEST A (END OF FRAME ) 

REQUEST A (END OF FRAME) INTERRUPT DR- 1 1 A 


4 





5 % 



5 

000000 




I NT A A : 



b 

000000 

012767 

000340 

177776* 


MOU 

ttLEUX ? PSW 

l' 

000006 





PUSH 


8 

000022 

012702 

000004 



MOU 

t*4,R2 

8 

000026 




INTAA1 : 



10 

000026 

016703 

167774' 



MOU 

IBUFA.R3 

11 

000032 

005302 




DEC 

R2 

12 

000034 

001374 




BNE 

INTAA1 

13 

000036 

005767 

023442 



TST 

SFLAGA 

14 

000042 

001014 




BNE 

N03 

15 

000044 

005267 

023434 



INC 

SFLAGA 

16 

000050 

012767 

000276’ 

000304 ’ 


MOU 

tt I NTBA j UECTA 

17 

000056 





POP 


18 

000072 

000002 




RTI 


IS 

000074 




N03 - 



20 

000074 

005062 

023510’ 



CLP. 

FIRSTACR2) 

21 

000100 

016201 

023514* 



MOU 

BUFSAT<R2) > R1 

22 

000104 

052761 

000040 

000002 


BIS 

ttEOF « BNBT (R1 ) 

23 

000112 

004767 

000444 



JSR 

PC 5 SAW 

24 

000116 

005262 

023500 * 



INC 

FRAMES CR2) 

25 





; % 



26 

000122 

000167 

000304 


• 

JMP 

INTBA3 

C. r 
28 





7 Tv 
;* 

REQUEST 

A (END OF FRAME) 

29 





it. 



30 

000126 




INTAB: 



31 

©00126 

012767 

000340 

177776’ 


MOU 

8LEUX j PSW 

32 

@00134 





PUSH 


33 

000150 

012702 

000004 



MOU 

a4,R2 

34 

000154 




INTAB1 * 



35 

000154 

016703 

167764* 



MOU 

I BUFB > R3 

36 

000160 

005302 




DEC 

R2 

37 

000162 

001374 




BNE 

INTAB1 

38 

000164 

005202 




INC 

R2 

39 

000166 

005202 




INC 

R2 

40 

000170 

005767 

023312 



TST 

3FLAGB 

41 

000174 

001337 




BNE 

N03 

42 

000176 

012767 

000512* 

000314’ 


MOU 

it I NTBB > UECTB 

43 

000204 

O05267 

023276 



INC 

SFLPGB 

44 

000210 





POP 


45 

000224 

000002 




RTI 



? GO TO LEVEL ? 

;ShUE REGISTERS 
5 SET DATA WORD COUNTER 

; BRING IN DATA AND DISCARD 


; FIRST EOF 

5 SET FLAG -NOT FIRST FRAME 
* SET DATA READ ROUTINE LDU 1 

f FIRST EOF INTERRUPT LOU 1 

{ RESET FIRST DATA FLAG 
5 PICK UP POINTER TO CURRENT BUFFER 
i SET END OF FRAME INDICATOR 
5 SWITCH BUFFERS 


;G0 CHECK FOR WRITE READY 


> SAUE REGISTERS 
;SET DATA WORD COUNTER 

; BRING IN DATA AND DISCARD 


;SET I ND I ACTOR FOR LDU2 

5 FIRST EOF 
j NO 

;SET DATA READ ROUTINE LDU 3 
5 SET FLAG-MOT FIRST FRAME 

; FIRST EOF INTERRUPT LDU 2 
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READ DATA FROM LDU 1 AMD 3 
READ DATA FROM DR- 11 


1 

'-t 






. SBTTL 

READ DATA FROM DR-11 


d. 

3 

A 





1 * 
it 

I MT AM - 

I PUT DATA 

AND DISCARD 


A 

s 

000226 







6 

00t3226 

012767 

000004 

©23276 


MOU 

#4 . CNTRA 

5 SET WORD COUNT 

7 

000234 




INTAW1 : 




8 

000234 

016767 

167774’ 

023266 


rau 

IBUFAn DATA 

; BRING IN DATA WORDS AND DISCARD 

3 

000242 

005367 

023264 



DEC 

CNTRA 


10 

000246 

001372 




BME 

I NT AW 1 


11 

000250 

000002 




RT! 


5 EXIT 

12 





;* 




13 





it 




14 

000252 




IMTBW v 




15 

000252 

012767 

000004 

’023254 


MOU 

#4 , CNTRB 


16 

000260 




INTBW1 J 




17 

000260 

016767 

167764’ 

023242 


MOU 

1BUFB, DATA 

(BRING IN DATA AND DISCARD 

18 

000266 

005367 

023242 



DEC 

CNTRB 


19 

000272 

001372 




BME 

INTBW1 

(EXIT 

20 

0-1 

000274 

000002 



it 

RTI 


cl 

22 








23 

^ A 





it 

I MTBA s 


READ DATA FROM DR-11 

A 

25 

000276 







26 

000278 

012767 

000340 

177776’ 


MOU 

#LEUX,PSW 


27 

000304 





PUSH 


5 SPUE REGISTER CR0-R4) 

28 

000320 

016701 

001014 



MOU 

STORAfRl . 

;PICK UP STORE ADDRESS POINTER 

29 

000324 

012702 

000004 



MOU 

*H,R2 

? SET WORD COUNTER N 

30 

000330 




I MTBA1 * 




31 

000330 

016721 

167774’ 



MOU 

IBUFA, (Rl)+ 

5 BRING IN DATA WORD N 

32 

000334 

005302 




DEC 

P.2 

sN-H+l 

33 

000336 

001374 




BME 

INTBA1 

;N=0> FINISHED 

34 

000340 




I NTBA4 




35 

000340 

010182 

001340’ 



MOU 

R1,STQRA(R2) 


36 

000344 

016201 

023514’ 



MOU 

BUFSATCR2) * R1 

5 TEST FOR FIRST DATA 

37 

000350 

005782 

023510’ 



TST 

FIRSTACR2) 

38 

000354 

001010 




BME 

INTBAS 

;NOT FIRST 

'IjCf 

000356 

016761 

006244’ 

000010 


MOU 

TIMXl > TIMS1 (R1 ) 

; SET START TIME 

40 

000364 

016761 

006246’ 

000012 


MOU 

T I MX2 j T I MS2 i R1 ) 
FIRSTACR2) 


41 

000372 

005262 

023510’ 



INC 


42 

000376 




INTBA51 



5 SAUE TIME OF DATA READ 

43 

000376 

016761 

006244’ 

000014 


MQU 

TIMX1 > TIMR1 CR1 ) 
TIMX2, TIMR2CR1 ) 

44 

000404 

016761 

006246’ 

023514’ 

000016 


MOU 

; INCREMENT WORD COUNT 

45 

000412 

005272 



INC 

•3BUFSAT ( R2 ) 

46 000416 

027227 

023514’ 

000076 


CMP 

@BUFSAT C R2 ) , ttDATNO 

; BUFFER FULL 

47 

A ! f 

000424 

103402 



« v 

.BLO 

INTBAS 

5 NO, GO EXIT 

■Ho 

49 

000426 

©04767 

000130 


f - r- 

J3R 

PC , SAW 

; 60 SWITCH BUFFERS AND WRITE FULL 

50 

000432 




I NTBA3 : 



1 ANY REQUESRS FOR WRITES 

hi 

800432 

'005767 

023036 



TST 

REQUST 

52 

53 

54 

000436 

O01416 



* V 

BEG 

I MTBA? 

(NO, GO EXIT 

000440 

005767 

©23014 


? ■■f 

TST 

BUSY 


55 

000444 

100413 




BMI 

I NT BP? 


5b 

000446 

005767 

0006fo4 



TST 

LOCK 




READ DATA FROM LDU 1 AMD 2 MACRO UR05-01A 01 -JAN-72 00:13 PAGE SP- 

READ DATA FROM DR- 11 


58 

000454 

012767 

000002 

000654 


MOU 

#2 » LOCK 


59 

000462 

012767 

000100 

177776’ 


MOU 

ttLEUS ) PSW 


60 

61 

62 

000470 

004767 

000242 


i 

JSR‘ 

PC. WRITE i 

sGO CHECK OH WRITE READY 

000474 




I NTBA7 : 




63 

000474 





POP 


s RESTORE REGISTERS (R0-R4) 

64 

000510 

000002 




RTI 


i EXIT 

65 





s* 



66 





;* 


READ DATA FROM DR-11 

B 

67 





it 




68 

000512 




INTBB* 




69 

000512 

012767 

000340 

177776’ 


MOU 

4LEUX.FSW 


70 

000520 





PUSH 


s SAUE REGISTERS (R0-R4) 

71 

000534 

016701 

000602 



MOU 

STORE, R1 

: PICK UP STORE ADDRESS POINTER 

72 

000540 

012702 

000004 



MOU 

#4? R2 

;SET WORD COUNT 

73 

000544 




INTBB1 : 




74 

000544 

016721 

167764’ 



MOU 

IBUFB, CR1)+ 

i BRING IN DATA WORD N 

75 

000550 

005302 




DEC 

R2 

;N=N+l 

76 

000552 

001374 




BNE 

IMTBB1 

;N a 0» FINISHED 

77 

000554 

005202 




INC 

R2 

iYES, SET DR- 11 E INDICATOR IN R2 

78 

000556 

005202 




INC 

R2 


79 

000560 

000667 




BP 

INTBA4 

; GO SWITCH BUFFERS AND WRITE 

80 





> £ 





00 
to 

1 



RE m DATA FROM LDU 1 AND 
SWITCH AND WRITE 


MACRO UR05-01A 01-JAN-72 00=13 PAGE 6 


1 

■D 






.SBTTL 

SWITCH AND WRITE 


3 






SWITCH 

BUFFERS AND WRITE FULL 

ONE TO DISK 

4 





it 


R2 - 0, LDU 1 


5 

6 





it 

it 


R2 * 2,. LDU 2 


? 

000562 




SAW- 




3 

000562 

010200 




mou 

R2, R0 

iSAUE R2 

9 

000564 

016705 

000664 



■ MOU * 

BUF t R5 

SPICK UF NUMBER OF BUFFERS 

10 

000570 

012701 

001344’ 



MOU 

ttBUFST ? R1 

SPICK UP BUFFER STARTS 

11 

000574 

012792 

001410’ 



MOU 

ttSTQPES » R2 

SPICK UP BUFFER STORES 

12 

000600 




SAW1: 




13 

0006.00 

012103 




MOU 

(R1)+,R3 

S SET BUFFER START 

14 

000802 

012204 




MOU 

C R8 ) + » R4 

i SET BUFFER STORE 

15 

000604 

036327 

000002 

000200 


BIT 

BNBT(K3)»#BB 

; BUFFER BUSY 

16 

©00612 

001406 




BEG 

SAW2 

;NU, GO SWITCH 

17 

000814 

005305 




DEC 

R5 

l YES. GO TO NEXT 

13 

000616 

001370 




BNE 

SAW! 


19 





» % 




20 

000620 




SAW4: 




21 

000620 

012700 

000002 



MOU 

#2,R0 

SPICK UP ERROR CODE 

22 

000624 

000167 

000000G 



JMP 

HALT 


23 

000630 




SAW2 : 




24 

000630 

016005 

023514’ 



MOU 

BUFSATCR0) . R5 

sSAUE OLD C FULL ) BUFFER 

25 

000634 

010360 

023514’ 



MOU 

R3* BUFSATCR0) 

s SET NEW BUFFER START 

26 

000640 

012763 

000200 

000002 


MOU 

#BB t BNBT ( R3 ) 


27 

000646 

010460 

' 001340’ 



MOU 

R4i STORACR0) 

iSET NEW BUFFER STORE 

28 





it 




29 

000652 

004767 

000436 



JSR 

PC . CALBLK 

?GO GET NEXT SECTOR NUMBER 

30 

000656 

010465 

000006 



MOU 

R4 > FNNP C R5 ) 

s SET SECTOR NUMBER IN BLOCK 

31 





3 $ 




32 





5 % 




33 





; t 




34 

000862 

016765 

022610 

000004 


MOU 

HE ADR j HDRW ( R5 ) 

;SET HEADER WORD 

35 

000670 

016004 

023500’ 



MOU 

FRAMES CR0J.R4 

SPICK UP FRAME NUMBER 

36 

000674 

005700 



*. 

TST 

R0 

* LDU 2 

37 

000676 

001401 




BEQ 

SAW3 

; NO 

36 

000700 

005404 




NEG 

R4 

s YES, NEGATE 

39 

0O0702 








40 

000702 

072427 

000010 



ASH 

48 . > R4 

; POSITION 

41 

000706 

050465 

000000 



BIS 

v R4 . CNT ( R5 ) 

;SET WITH WORD COUNT 

42 









43 

000712 

052765 

000100 

000002 


BIS 

4BW.BNBTCR5) 

5 SET WRITE READY BIT 

44 

000720 

005267 

022550 



INC 

REQUST 

s SET WRITE REQUST 

45 

000724 

012760 

000002 

023524’ 


MOU 

42 i FURST ( R0 ) 


46 

47 

000732 

010002 



. i- 

MOU 

R0,R2 


*7 f 

48 

000734 

000207 



j 4* 

RTS 

PC 




READ DATA FROM LDU 1 AND 2 
WRITE BUFFERS TO DISK 
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1 

2 

3 

4 

5 000736 

6 000736 010200 

7 

8 000740 

q 000740 005767 022512 

10 000744 001444 

11 000746 

12 000760 005767 000264 

13 006764 001494 

14 

15 000766 012700 000004 

16 000772 000167 000000G 

17 000776 

18 

19 000776 016701 000242 

20 001002 016746 177776’ 

21 001006 012767 000340 177776 1 

22 001014 036127 000002 000100 

23 001022 001404 

24 001024 005061 000000 

25 001030 005061 000002 

. 26 001034 

*- 27 001034 012667 177776’ 

00 28 001040 005000 

29 001042 036727 022424 000001 

1 30 001050 001402 

31 001052 012700 000002 

32 001056 

33 001056 O12704 000002 

34 001062 

35 001062 O12702 001344’ 

36 001066 016701 000362 

37 001072 

38 001072 012203 

39 001074 036327 000002 000100 

40 001102 001015 

41 001104 , 

42 001104 005301 

43 001106 001371 

44 

45 001110 005067 022342 

46 @01114 162700 000002 

47 ©01120 001402 

48 @01122 012700 000002 

49 

50 001126 

51 001126 005304 

52 00113O @@1354 

53 

54 ©@1132 0O0167 000146 

56 001136 

57 001136 005700 



. SBTTL 

WRITE BUFFERS TO 

5 

» -4 

WRITE BUFFERS TO DISK 

WRITE*. 


MOU 

R2 » R0 

WRIT1 • 


TST 

FWRIT 


BEQ 

WRLT10 


.WAITR 

4LNKBLK , 4WRITS1 


TST 

CNTU 

: Y 

BEQ 

WRITS 

!* •■V- 

MOU 

44, R0 


JMP 

HALT 

WRITS* 


MOU 

WADR.R1 


MOU 

PSWWS P) 


MOU 

WJEUX.PSW 


BIT 

BNBT(R1),«BW 


BEQ 

WRITX 


CLR 

CNT(Rl) 


CLR 

BNBTCR1) 

WRITX: 




MOU 

(SP)+,PSW 


CLR 

R0 


BIT 

SECNO, 41 


BEQ 

WRIT10 


MOU 

42, R© 

WRIT10* 


MOU 

42, R4 

WRIT?: 


MOU 

4BUFST , R2 


MOU 

BUF , R1 

WR 1 T3 • 


MOU 

(R2)+,R3 


BIT 

BNBTCR3) , 4BW 


BNE 

WRIT4 

WRITS: 


DEC 

R1 


BNE 

WRIT3 



CLR 

FWRIT 


SUB 

42, R0 


BEQ 

WRITS 


MOU 

42, RO 

tX 

WRITS: 


DEC 

R4 


BNE 

WRIT? 

5 & 


JMP 

WRITS1 

iX 

WEIT4 * 


TST 

R0 


DISK 


;HftS WRITE BEEN REQUESTED 
; NO 

* ERROR IN LAST WRITE 


5 PICK UP ERROR CODE 


? PICK UP LAST BUFFER ADDRESS 


; CLEAR. LAST BUFFER 


i INITIALIZE LDU INDICATOR <1) 
5 LAST WRITE FOR LDU 2 
5 NO 

5 YES , START WITH THAT ONE 

5 PICK UP LOOP COUNTER 

5 SET START OF BUFFERS 
» SET NUMBER OF BUFFERS 

5 TRY BUFFER N 
5 BUFFER WAITING ON WRITE 
; YES 

JNQ, FINISHED THIS LOOP 
i NO, TRY NEXT ONE 


; YES, SET LDU INDICATOR FOR NEXT LOOP 


; ALL LOOPS FINISHED 
i NO* TRY NEXT 


« LDU 1 OR 2 



READ DATA FROM LDU 1 AND 2 
WRITE -BUFFERS TO DISK 


MACRO UR05-01A 01 -JAN-72 00:13 PAGE 7+ 


58 

001140 

001405 




BEQ 

WRITS 

59 





5 % 



60 

001142 

005763 

000000 



TST 

CNTCR3) 

61 

001146 

100356 




BPL ■ 

WRITS 

62 

001150 

000167 

000006 



JMF 

WRITS 

63 





; % 



64 

001154 




WR.IT9 ' 



65 

001154 

005763 

000000 



TST 

CNTCR3) 

66 

001160 

100751 




BN I 

WRITS 

67 





it 



68 

001162 




WRITS » 



69 

001162 

016005 

' 023462’ 



MOU 

NEXT (R0), PS 

70 

001166 

001410 




BEQ 

WRITSA 

71 

001170 

005305 




DEC 

R5 

72 

001172 

001406 




BEQ 

WRITSA 

73 

001174 

005205 




INC 

R5 

74 

001176 

166305 

000006 



SUB 

FNNPCR3) , R5 

75 

001202 

062705 

000002 



ADD 

#2,R5 

76 

001206 

001336 




BNE 

WRITS 

77 

001210 




WRITSA: 



78 

001210 

016360 

000006 

023462’ 


MOU 

FNNP C R3 ) , NEXT C R0 ) 

79 

001216 

616367 

000006 

022246 


MOU 

FNNP C R3 ) » SECNO 

80 

001224 

010367 

000014 



MOU 

R3»WADR 

81 

001230 

005067 

000014 



CLR 

CNTW 

82 

001234 

004567 

000000G 



JSR 

R5,LKTRAN 

S3 

001240 

023536’ 




. WORD 

FILN 

84 

001242 

023472’ 




- WORD 

SECNO 

85 

001244 

000000 



WADR • 

. WORD 

0 

86 

001246 

000002 




. WORD 

2 

87 

001250 

600000 



CNTW J 

.WORD 

0 , 

88 

001252 

012767 

000001 

022176 


MOU 

#1. FWRIT 

89 

001260 

036357 

000002 

©00040 


BIT 

■ -BNBT £ R3 ) » it EOF 

90 

001266 

001404 




BEQ 

WRITS2 

91 

001270 

005260 

000000G 



INC 

FTORCR0) 

92 

001274 

005267 

000000G 



INC 

FCNTW 

93 

001300 




WRITS2: 



94 

001300 

005367 

022170 



DEC 

REQUST 

95 

001304 




WRITS!* 



96 

00 1 304 

010002 




MOU 

R0, R2 

97 

001306 

005067 

000024 



CLR 

LOCK 

98 

001312 

000207 




RTS 

PC 


5 LDU 1 
5 LDU 2 

; WRONG BUFFER 
5 BUFFER OK, GO WRITE IT 


; RIGHT BUFFER 
; WRONG > GO TRY AGAIN 


SPICK UP LAST SECTOR WRITTEN 
sFIRST TIME 

; FIRST TIME FOR LDU 2 

; CHECK LAST SECTOR CALCULATED 

? NOT NEXT IN SEQUENCE , TRY AGAIN 


» SET THIS SECTOR IN CALL SEQUENCE 
f SET BUFFER ADDRESS IN CALL SEQUENCE 
; CLEAR FUNCTION CODE 



; RETURN 



READ DATA FROM LDU 1 AND £ 
WRITE BLOCK NO. 


MACRO UR0S-01A 01 -JAN-72 00:13 PAGE 8 


1 

2 

3 

4 

5 

6 

7 

8 001314 

9 001314 

10 001320 

11 001322 

12 001330 

13 001330 

14 001334 


005760 

023524’ 

5 'fc 
it 
i X 
i* 
it 
>t 

CALELK : 

. SBTTL 
CALCULATE 

TST 

001403 

062760 

000002 023466’ 


BEQ 

ADD 

016004 

023466 * 

CALI* 

MOU 

000207 



RTS 


WRITE BLOCK NO. 


NEXT WRITE BLOCK 
R0 = 0 ) LDU 1 
R0 = 2» LDU 2 


FURSTCR0) 

CALI 

#2i LSECTCR0) 

LSECTCR0) ,.R4 
PC 


oo 

0 

1 



READ DATA FROM 
INPUT BUFFERS 

LDU 1 AND 2 

MACRO UR05-01A 

01 -JAN-72 

00 J 13 PAGE 9 

1 

•p 


i* 
5 X- 

. SBTTL 

INPUT BUFFERS 

■ 3 


DATA INPUT BUFFERS 

4 001336 

000000 

LOCK : 

. WORD 

0 

5 0O1340 


STORE “ 


6 001340 

000000 

STORA * 

. WORD 

0 

7 001342 

000000 

STORE : 

. WORD 

0 

8 


5# 



9 001344 
10 001344 

001456’ 

BUFST * 

. WORD 

IEA1A 

11 001346- 

002456* 


. WORD 

IEA2A 

12 0013S0 

003456’ 


. WORD 

IEA3A 

13 001352 

004456* 


. WORD 

IEA4A 

14 001354 

005456’ 


. WORD 

IEA1B 

15 001356 

006456’ 


- . WORD 

IEA2B 

Ito 001360 

007456* 


. WORD 

IEA3B 

17 001362 

010456* 


. WORD 

IEA4B 

•18 001364 

011456’ 


. WORD 

IEB1A 

19 001366 

012456 ’ 


.WORD 

IEB2A 

20 001370 

013456’ 


.WORD 

IEB3A 

. 21 001372 

014456’ 


. WORD 

IEB4A 

22 001374 

015456’ 


. WORD 

I EE I B 

23 001376 

016456’ 


. WOK) 

IEB2B 

24 001408 

017476’ 


. WORD 

IEB3B 

25 001402 

020456’ 


. WORD 

IEB4B 

, 26 001404 

021456’ 


. WORD 

IEC1A 

h- 27 001406 
oo 28 

022456’ 

s* 

. WORD 

IEC2A 

7 1 29 001410 


STORES 

: 


30 001410 

001476’ 


. WORD 

ISAIh 

31 001412 

002476’ 



ISA2A 

32 001414 

003476’ 



ISA3A 

33 001416 

004476 ’ 



ISA4A 

34 001420 

O05476’ 



ISA1B 

35 0©1422 

006476' 



ISA2B 

36 001424 

007476’ 



ISA3B 

37 001426 

010476’ 



ISA4B 

38 001430 

0:11476’ 



ISB1A 

39 001432 

012476* 



ISB2A 

40 001434 

013476’ 



ISB3A 

41 001436 

014476* 



ISB4A 

42 001440 

015476* 



I SB IB 

43 001442 

016476’ 



ISB2B 

44 001444 

017456’ 



I SB3B 

45 001446 

020476’ 



ISB4B 

46 001450 

021476* 


. WORD 

ISC1A 

47 001452 

48 

022476’ 

* 5K 

. WORD 

. ISC2A 

49 001454 

000022 

BUF: 

.WORD 

13. 

50 


? 



51 001456 


IEA1A s 

. BLKW 

size 

52 001476 

53 


ISA1A s 
5 % 

. BLKW 

SI 2D 

54 002456 


I EA2A ' 

.BLKW .. 

SIZB 

55 002476 


ISA2A: 

. BLKW 

S I ZD ■ 


) 


5 WRITE LOCK C0=FREE, 2 “LOCKED) 

; CURRENT STORE ADDRESS FOR LEW i 
i CURRENT STORE ADDRESS FOR LDU 2 

5 BUFFER START ADDRESSES 


5 BUFFER STORE ADDRESSES 



188 


MACRO UR0S-01A 01- JAN-72 00:13 PAGE 9- 


READ DATA FROM LDO 1 AND 2 
INPUT BUFFERS 


S3 003476 

59 

60 004456 

61 004476 
63 

63 005456 

64 005476 

65 

66 006456 

67 006476 
69 

69 007456 

70 007476 

71 

72 010456 

73 010476 

74 

75 011456 

76 011476 

77 

78 012456 

79 012476 

80 

81 013456 

82 013476 

83 

84 014456 

85 014476 

86 

87 015456 

88 015476 

89 

90 016456 

91 016476 

92 

93 017456 

94 017476 

95 

96 020456 

97 020476 

98 

99 021456 

100 021476 

101 

102 022456 

103 022476 


I SA3A * 
j -K 

I EA4A : 

. BLEW 

SI 2D 

. BLEW 

SIZB 

I SA4A : 

> % 

. BLEW 

SI 2D 

IEA1B: 

. BLEW 

SI ZB 

ISA1B: 

} t 

.BLEW 

SI ZD 

IEA2B: 

. BLEW 

SIZE 

I SA2B ’• 
it 

. BLEW 

SI ZD 

I EA3B : 

. BLEW 

SI ZB 

ISA3B: 

it 

. BLEW 

SI ZD 

IEA4B: 

. BLEW 

SIZE 

ISA4B: 

s* 

. BLEW 

SI 2D 

I EB1A : 

. BLEW 

SI ZB 

IS'BIA : 

it 

. BLEW 

SI ZD 

IEB2A: 

. BLEW 

SI ZB 

I SB2A : 

■ i' 

. BLEW 

SI 2D 

I EB3A : 

, BLEW 

SIZE 

I SB3A s 

. BLEW 

SI 2D 

IEB4A: 

. BLEW 

SIZE 

ISB4A: 

it 

. BLEW 

SI ZD 

IEB1B* 

. BLEW 

SI ZB 

ISB1B: 

: t 

. BLEW 

SIZE 

IEE2B : 

. BLEW 

SI ZB 

I SB2B s 

: ’t 

.BLEW 

SI ZD 

1 5B3B 5 

. BLEW 

SIZE' 

IEB3B« 

• 

. BLEW . 

SI ZD 

IEB4B: 

. BLEW 

SI ZB 

I SB4B : 
it 

. BLEW 

SI ZD 

IEC1A: 

. BLEW 

SIZE 

ISC1A 5 

. BLEW 

SI ZD 

IECHAs 

. BLEW 

SI ZB 

I SC2A : 

> BLEW 

SI ZD 



BEAD DATA FROM LDU 1 AND 2 
CONSTANTS 


MACRO UR0S-01A 01-JAN-72 00:13 PAGE 10 


i 

t— 

oo 

vD 


1 




. SBTTL. 

CONSTANTS 

2 -023456 

000000 


FHR1T * 

. WORD 

0 

3 023460 

000000 


BUSY ■ 

. LORD 

0 

4 023462 

000000 

000001 

NEXT : 

. WORD 

0s 1 

S 023466 

000000 

000001 

LSECT : 

. WORD 

0,1 

6 023472 

000000 


SECNO : 

. WORD 

0 

7 023474 

000000 


REQUST 

. WORD 

0 

8 023476 

000000 


HEADR : 

. WORD 

0 

9 023500 



FRAMES 



10 023500 

000000 


FRAMEA 

. WORD 

0 

11 023502 

000000 


FRhMEB 

. WORD 

0 

12 023S04 

000000 


" SFLAGA 

. WORD 

0 

13 023506 

000000 


SFLhGB 

.LORD 

0 

14 023510 

000000 


FIRSTA 

.WORD 

0 

15 023512 

©00000 


FIRSTB 

. WORD 

0 . 

16 023514 



BUFSAT 



17 




. BLKW 

4 

IS 



; Y 



19 023524 

000000 

000000 

FURST ’ 

. WORD 

0,0 

20 023530 

000000 


• DATA : 

. WORD 

0 

21 023532 

000000 


CNTRA : 

. WORD 

0 

22 023534 

000000 


CNTRB : 

..WORD 

0 

23 



\* 



24 023536 


\ 

FILNs 



25 023536 

©45666 

073300 


. RAD50 

/LDUS/ 

26 023542 

000000 



. RAD50 

// 

2? 023544 

000000 


FIN: 

. WORD 

0 

28 

000001 * 



. END 



; WRITE BUSY FLAG 

i NEXT SECTOR FOR LDU 1 AND LDU 2 
; LAST SECTOR FOR LDU 1 AND LDU 2 
sLAST SECTOR WRITTEN 
5 WRITE REDUST COUNT 
s HEADER (AIRCRAFT TYPE) 

5 FRAME COUNT FOR A 
; FRAME COUNT FOR B 
; START FLAG A 
; START FLAG B 
5 FIRST DATA FLAG . 

; FIRST DATA FLAG 


;DhTA (DISCARDED) 
; WORD COUNTER A 
JWGRD COUNTER B 


? FILE NAME FOR LDUS 
J FINISH FLAG 



READ DATA FROM LDU 1 AND 2 MACRO UR0S-01A 01 -JAN-72 00 = 13 PAGE 10-4- 

SYMBOL TABLE 


BB 

000200 


' BNBT 

= 000002 

BUF 

001454RG 

BUFSAT 

023S14RG 


BUFST 

001344RG 

BUSY 

023460RG 

BW 

000100 


CALBLK 

001314R 

CALI 

001330R 

CNT 

000000 


CNTRA 

023532R 

CNTRB 

023534R 

CNTW 

001250R 


DATA 

023530R 

PATHO = 

000076 

EOF 

000040 


EOT 

= 000020 

FCNTW = 

444444 G 

FILM 

023536 RG 


FIN 

023544RG 

FIRSTA 

0235 10RG 

FIESTB 

02351 2R 


FNNP 

= 000006 

FRAME A 

023500R 

FEANEB 

023502R 


FRAMES 

023500R6 

FTOR = 

4 4 4. 4- 4- 4 G 

FIJRST 

023524FG 


FUR IT 

0234S6RG 

HALT = 

s L.- ■. 1 1 1 L. 1 -J,- [-*■ 

HDRW = 

000004 


HEADR 

023476RG 

I BUF A = 

167774 

IBUFB = 

167764 


IEA1A 

001 456 R 

IEA1E 

00S456R 

1EA2A 

002456R 


IEA2B 

006456R 

IEA3A 

003456R 

IEA3B 

007456R 


IEA4A 

004456R 

I EA4B 

010456R 

IEB1A 

011456R 


IEB1B 

015456R 

IEB2A 

012456R 

IEB2B 

016456R 


IEB3A 

013456R 

IEB3B 

017476R 

IEB4A 

014456R 


1EB4B 

020456R 

IEC1A 

021456R 

IEC2A 

022456R 


INTAA 

00W000RG 

I NT AA 1 

000026R 

INTAB 

000126RG 


ItSTABl 

000154R 

INTAW 

000226RG 

INTAWl 

000234R 


INTBA 

000276RG 

INTBA1 

000330R 

INTBA3 

000432R 


1NTBA4 

000340R 

I NT BAB 

000376R 

INTEA? 

00Q474R 


INTBB 

00051 2RG 

INTBB1 

000S44R 

INTBW 

000252RG 


IHTBW1 

000260R 

ISA1A 

001476R 

I5A1B 

005476R 


ISA2A 

002476R 

ISA2B 

006476R 

ISA3A 

003476R 


ISA3B 

007476R 

ISA4A 

004476R 

ISA4B 

010476R 


ISB1A 

011476R 

ISB1B 

015476R 

1SB2A . 

012476R 


ISB2B 

016476R 

ISB3A 

013476R 

ISB3B 

017456R 


ISE4A 

014476R 

ISB4B 

020476R 

I SCI A 

021476R 


ISC2A 

022476R 

LEVS = 

000100 

LEUX = 

000340 


LKTRAN 

= 44*444 G 

LNKBLK= 

444444 G 

LOCK 

001 336 RG 


LSECT 

023466RG 

NEXT 

023462RG 

N03 

000074R 


PC 

=400000? 

PSW 

177776 

REQUST 

023474RG 


R0 

=*4000000 

R1 

4000001 

R2 

4000002 


R3 

=4000003 

R4 

4000004 

R5 

4000005 


R6 

=4000006 

R7 

4000007 

SAW 

000562 RG 


SAW1 

000600R 

SAW2 

000630R 

SAW3 

000702R 


SAW4 

000620R 

SEGNO 

023472RS 

SFLAGA 

023504RG 


SFLAGB 

023506R 

SIZE = 

000010 

SI 2D = 

000370 


SP 

=4000006 

STORA 

Q01340RG 

STORB 

O01342RG 


STORE 

001340R 

STORES 

0014 10RG 

SWR 

177570 


TIMR1 

= 000014 

TIMR2 = 

000016 

TIMS1 = 

000010 


TIMS2 

= 000012 

TIMX1 = 

006244 

T I (1X2 - 

006246' 


UECTA 

= 000304 

UECTB = 

000314 

UADR 

O01244RG 


WRITE 

000736RG 

WRITS 

001162R 

WRITSA 

001210R 


WRITS1 

001304R 

WRITS2 

001300R 

WRITX 

001034R 


WRIT1 

000740R 

WRIT 10 

001056R 

WRIT3 

001072R 


WRIT4 

001136R 

WRITS 

000776R 

WRITS 

0011 04R 


WRIT7 

001062R 

WRITS 

001126R 

WRIT9 

001154R 


.SYM 

= 000027 



. ABS. 

000000 

000 






023546 

001 






ERRORS DETECTED : 0 

FREE CORE: H556. WORDS 

READ, LI < READ. 1 




APPENDIX C 
FILL LISTINGS 


/ 


- 191 - 



- 261 - 


FILL PROCESS BUFFER 
TABLE OF CONTENTS 


MACRO UR0S-01A 01 -JAN-72 00*18 


4- 1 READ DATA FROM DISK 

5- 1 STORE DATA UlORBS 

£- 1 SET MAXIMUM UELOCITY 

7- 1 READ BLOCK OF DATA 





FILL PROCESS BUFFER 


MACRO UR0S-01A 01- JAN-72 00*18 PAGE 1 


10 

11 000000 


.ML I ST 
-TITLE 
. GLOB'L 
. GLOBL 
. GLOBL 
. GL.OBL 
. GLOBL 
. GLOBL 
. GLOBL 
. MCftLL 
. PARhM 


TTh 

FILL PROCESS BUFFER 

FTOR 

NEXT 

FILL, BUSY, FIN, REQUST 
LfCTHflN , LNKBLK, WRITE 
IFLD, LRSEC 

BUFi 

FCNTW , FCMTR , F I LN 
.PhRPH, .WftITR 



FILL PROCESS BUFFER 


MACRO UR05-01A 01 -JAN-72 00:18 PAGE 2 


1 

.MACRO 

PUSH 

2 

MOU 

R0.-CSP) 

3 

MQU 

Rl.-CSF) 

4 

MOU 

Ra.-CSP) 

5 

MOU 

R3 > - ( SP j 

6 

NOU 

R4 » -C SP ) 

7 

MOU 

RSi -(SP) 

8 

. ENDM 


9 

it 


10 

. MACRO 

POP 

11 

MOU 

CSP)+,R5 

12 

MOU 

(SP) + j R4 

13 

MOU 

C SP ) + ! R3 

14 

MOU 

(SP)+,R2 

15 

MOU 

CSP) + » R1 

16 

MOU 

C SP ) + » R0 

17 

. ENDM 



; SAUE REGISTERS 


5 RESTORE REGISTERS 


►L 

i 



FILL PROCESS BUFFER 


MACRO UR® 5-0 IP 01-JAN-72 00*1.9 PAGE 3 


1 

000080 

ONE = 0 

2 

003720 

TWO « 200®. 

3 

007640 

THREE = 4000. 

4 

01 356® 

FOUR * 6008. 

5 

• 001740 

MPNTS = 992. 

6 • 

000000 

CNT = 0 

7 

000082 

BNBT = 2 

8 

000004 

HDRW - 4 

9 

000006 

FNNP = 6 

10 

000010 ■ 

TIMS1 = 8. 

11 

000012 

TIMS2 = 10. 

12 

000014 

TIMR1 * 12. 

13 

0000 1 b 

TIMR2 = 14. 

14 

08020® 

BE = 200 

IS 

000040 

EOF = 4® 

16 

000010 

SIZE = S. 

17 

000370 

SI ZD * 24S. 

1 O 
iu 

000340 

LEUW = 340 


J START of process buffer X 

; START OF ¥ 

S START OF tVI 
; SThRT OF U/U 
s MAXIMUM NUMBER OF POINTE 
; WORD COUNT 
i BLOCK -CONTROL 
s HEADER WORD 

; FRAME NUMBER, SECTOR NUMBER 
i START TIME,. LOW ORDER 
; START TIME, HIGH ORDER 
;READ TIME, LOW ORDER 
» READ TIME, HIGH ORDER 
5 BUFFER BUSY 
i END OF FRAME 
; WORDS PER CONTROL BLOCK 
; DATA WORDS PER BLOCK 


sO 

oi 

i 



Eikk BUFFER MACRO UR05-01A 01 -JAN-72 00:13 PAGE 4 

READ DATA FROM DISK 


i 

i— > 

sO 

O' 

» 


1 

2 

ti 

4 

5 

6 

7 

8 
9 

10 

1 1 000000 
12 000000 

13 000014 

14 000014 

15 000020 

16 000026 
17 000030 
13 000034 

19 000036 

20 000042 

21 000046 

22 000050 

23 000054 

24 000056 

25 000060 
8b 000060 

27 000064 

28 000064 

29 

30 

31 000070 

32 000070 

33 000074 

34 000076 

35 000102 

36 000104 

37 000106 

38 000106 

39 000112 

40 000114 

41 000120 

42 000122 

43 000124 

44 000126 

45 000130 

46 

47 000132 

48 000132 

49 000140 

50 000142 

51 000142 

52 ©00146 

53 

54 000150 

55 000150 
68 

57 000152 


5* 

5 % 

;* 

P % 

5 % 

; % 

\ 

FILL: 


. SBTTL READ DATA FROM DISK 
READ 1000 WORDS OR FRAME OF DATA 
FORMAT FOR DATA PROCESSING PROGRAM 

FILL DATA BUFFER 






PUSH 





FILL0: 



005067 

000004 ’ 



CLR 

I EOF I 

026767 

003076 

003072 


CMP 

FCNTWi FCNTR 

101020 




BHI 

FILLl 

005767 

0000006 



TST 

FIN 

001011 




BNE 

FILLE 

016701 

000000 ’ 



MOV 

RBTRM* El 

162701 

000041 



SUE 

833. ,R1 

001406 




BEQ 

FILLE1 

162701 

000011 



SUB 

89. . R1 

001403 




BEQ 

FILLE1 

000756 



F1LLE* 

BR 

FILL0 

005267 

000004 ' 


FILLE1 ' 

INC 

I EOF I 

000167 

000474 


it 

it 

FILL1 : 

JMP 

FIXT 

016701 

000000 ’ 



MOU 

IFLD.Rl 

001404 




BEQ 

SECTS 

162701 

000002 



SUB 

#2,R1 

001422 




BEQ 

SECT3 

000416 



SECTS : 

BR 

SECT2 

016701 

002766 



MOU 

FTORjRi 

001413 




BEQ 

SECTS 

016702 

002762 



MOU 

FTOR+2 » R2 

001413 




BEQ 

SECT3 

160102 




SUB 

R1 > R2 

100411 




BN I 

SECT3 

001401 




BEQ 

SECTS 

000404 



it 

SECTS * 

BR 

SECTS 

036.727 

002746 

000001 


BIT 

READST * 81 

001003 



SECT2 : 

BNE 

SECT3 

012702 

000002 



MOU 

#2»R2 

000401 



it 

SECT3 : 

BR 

SECT4 

005002 



ft 

SECT4 : 

CLR 

R2 


5 ALL FRAMES READ 
; NO. GO READ ONE 
5 YES- TEST OVER 
! YES 


> NG> WAIT FOR A FRAME 
5 YES. SET END OF TEST FLAG 


> P I CK UP INHIBIT FLAG 
; BOTH LDUS 

; LDU 1 ONLY 
• LDU 2 ONLY 
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FILL PROCESS BUFFER MACRO UR05-81A 01 -JAN-72 00: IS 
READ DATA FROM DISK 


58 

O00152 

016267 

003106’ 

002724 


MOU 

59 

000160 

010267 

002726 



MOU 

60 

000164 

016746 

17777b’ 



MOU 

61 

000170 

016767 

000340’ 

177776’ 


MOU 

62 

000176 

012767 

177777 

0000006 


MOU 

S3 

000204 

012667 

177776’ 



MOU 

64 

000210 

005067 

002700 



CLR 

65 

000214 

005067 

002676 



CLP 

£>6 

000220 

005067 

002700 



CLR 

6? 

000224 

005067 

002676 



CLR 

68 

000230 

005000 




CLR 

69 

000232 

004767 

000544 


* 

JSR 

70 000236 

016704 

002666 



MOU 

71 

000242 

' 012701 

000001 



.MOU 

72 

000846 




FILLS* ■ 


73 

000246 

012700 

000002 



MOU 

74 

000252 

004767 

000524 



JSR 

75 





9 $ 


76 

000256 

016702 

000612 



MOU 

77 

000262 

016203 

000000 



MOU 

78 

000266 

042703 

177400 



BIC 

79 

000272 

005703 




TST 

80 

000274 

001512 




BEQ 

81 

000276 

016702 

000566 



MOU 

82 

000302 




FILL3* 


83 







84 

000302 

004767 

000304 



JSR 

85 

000306 

004767 

000322 



JSR 

86 

000312 

005724 




TST 

87 

000314 

005201 




INC 

88 

000316 

005303 




DEC 

89 

000320 

001370 




BNE 

90 





5 % 


91 

000322 




FILLBs 


92 

000322 

012702 

081180’ 



MOU 

93 

000326 

004767 

000366 



JSR 

34 

000332 

005767 

082560 



TST 

95 

000336 

001010 




BNE 

96 

000340 

016267 

000010 

000004 ’ 


MOU 

97 

000346 

016267 

000012 

000006’ 


MOU 

98 

000354 

005367 

002536 



DEC 

99 

000360 




FILLA: 


100 

000360 

036227 

000002 

000840 


BIT 

101 

000.366 

001055 




BNE 

102 

000370 

020127 

001740 



CMP 

103 

000374 

103405 




BLO 

104 

000376 

012767 

177777 

000004’ 


MOU 

105 

000404 

000167 

000116 



JMP 

106 





5 '$■ 


107 

000410 




.FILLS* 


108 

000410 

005000 



«■ • -• 

■CLR 

109 

000412 

004767 

000364 



JSR 

lie 





3* 


111 

00041b 

©16702 

800454 



MOU 

112 

000422 

016203 

000000 



MOU 

113 

000426 

042703 

1.77400 

" 


RTC 
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FILL PROCESS BUFFER 

MACRO UR05-01A 

01- JAN-72 

00 : 18 

PAGE 4+ 


READ DATA FROM 

DISK 







115 

000434 

001432 




BEQ 

FILEOF 


116 

0004-86 

0167O2 

000430 



MOU 

READS - P.2 


117 

000442 




FILL ? • 




118 

000442 

004767 

000144 



JSR 

PC , STORE 

; SET 4 DATA WORDS 

119 

000446 

004767 

000162 



JSR 

PC > MAXU 

; GO FIND MAX UELOCITY 

120 

000452 

005724 




TST 

(R4) + 

; INCREMENT TO NEXT PROCESS WORD 

121 

000454 

005201 




INC 

Rl 

; INCREMENT MAX WORD COUNT 

122 

000456 

005303 




DEC 

R3 

5 FINISHED BLOCK 

123 

000460 

0O1370 




BNE 

FILL? 


124 





5* 




125 

000462 




FILLC* 




126 

000462 

012702 

002100’ 



MOU 

#BUF2 » P2 


127 

000466 

004767 

000226 



JSR 

PC • T I FR 


128 

06>0472 

036227 

000002 

©00040 


BIT 

BNBTLR2) » 4E0F 

» END OF FRAME 

129 

000500 

001010 




BNE 

FILEOF 

; YES 

130 

000502 

020127 

001740 



CNF' 

Rl , 4MFNTS 

5 NO » MAXIMUM POINTS 

131 

000506 

103657 




BLO 

FILLS 

5 NO, GO READ NEXT BLOCK 

132 

000510 

012767 

177777 

000004’ 


MOU 

n-1 , I EOF I 

; YES 5 GO EXIT 

133 

000516 

000167 

000004 



JMP 

FILLXT 


134 

000522 




FILEOFf 




135 

000522 

005267 

002372 



INC 

FCNTP 


136 

00052b 




FILLXT: 




137 

000526 




FIXET: 




138 

000526 

005067 

0000006 



CLR 

BUSY 

; CLEAR WRITE BUSY FLAG 

139 

000532 

016702 

002354 



MOU 

REDEX.R2 


, 140 

000536 

016762 

002342 

003106 ’ 


MOU 

READST . LRSEC ( R2 ) 


- 141 

000544 

005362 

©03100’ 



DEC- 

FT0RCR2? 


142 

000550 

005301 




DEC 

Rl 


00 143 

000552 

001002 




BNE 

FIXT'l ' 


' 144 

000S54 

000167 

177234 



JMP 

FILL© 


145 

000560 




F I XT 1 ■= 




146 

000560 

010167 

000020 ’ 



NOU 

Rl >NUMPTS 


147 

000564 




FI XT: 




148 

000564 





POP 



149 

000600 

000205 




PTS 

R5 


150 

000602 




HLT s 




151 

000602 

012700 

000006 



MOU 

#6, R0 


152 

000606 

800167 

000000 ’ 



JMP 

HALT 




LDOCWcnUl-LLjfuH* 


FILL PROCESS BUFFER 
STORE BATA WORDS 


MACRO UR0S-0IA 01-JRN-72 O&’-IQ PAGE S 





«* 

;* 

STORE: 

. SBTTL 

STORE DATA WORDS 






FORMAT 

AND STORE DATA WORDS 



000612 

000612 

012264 

000000 

nou 

CR2)+,0NE(R4) 

J FIRST DATA WORD 

X 


000616 

012264 

003720 


fine 

( R2 ) + ) TWO ( R4 ) 

J SECOND DATA WORD 

Y 

000622 

012264 

007640 


mu 

(R2H, THREE (R4> 

i THIRD DATA WORD 

N/I 

000626 

012264 

013S60 


MOU 

( R2 ) + 1 FOUR C R4 ) 

i FOURTH DATA WORD 

u/u 

000632 

000207 



RTS 

PC 

i RETURN 




FILL PROCESS BUFFER 
SET MAXIMUM UELOCITY 

1 

p 

3 

4 

5 000S34 

S 000634 026467 

7 000642 101414 

8 000644 016767 

9 000652 016767 

10 090660 016467 

11 000666 010167 

12 000672 000411 

13 

14 000674 

15 000674 026467 

16 800702 101405 

17 000704 016467 

18 000712 010167 

19 

20 000716 

21 000716 000207 

22 

23 

24 000720 

25 000720 

1 26 000734 016267 

iv 27 000742 016267 

2 28 060750 016204 

9 29 600754 072427 

30 000760 010467 

31 000764 

32 001000 ©00207 
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I 

. SBTTL 

SET MAXIMUM UELOCITY 



it 
; ^ 

FIND MAXIMUM UELOCITY 


013560 

002254 
000000 ’ 
013566 
000000 ' 

MAXU s 

002262 

002254 

000002’ 

002236 

■ 

CMP 

BLOS 

MOU 

MOU 

MOU 

MOU 

ER 

FOUR ( R4 ) , MAXW1 
MAXU1 

MAXl-Jl , MAXW2 
MAXI ,MAX2 
FOUR ( R4 ) , MAXW1 
Rl * MAXI 
MAXU2 

; UELOCITY HIGHER THAN PREUIOUS 
;NO 

5 YES, REPLACE LAST HIGHEST 
» SET CURRENT MAX NUMBER 

013560 

013560 

000082' 

MAXU1 : 

002224 

002214 

; 

CMP 

BLOS 

MOU 

MOU 

FOUR ( R4 ) » MAXU2 
MAXU2 

FOUR ( R4 ) , MAXM2 
R1 - MAX2 

; HIGHER THAN PREUIOUS 
i NO 

> YES, REPLACE HIGHEST 


UAXU2: 

it 

RTS 

PC 


000014 
000016 
000000 
177770 
000002 5 

it 

TIFR : 

000010’ 

000012' 

PUSH 

MOU 

MOU 

MOU 

ASH 

MOU 

POP 

RTS 

TIMR1CR2) .TMEND 
T I MR2 ( R2 ) » TMEMD+2 
CNT ( R2 ) » R4 
#-0. ,R 4 
R4, IFRM 

PC 




FILL PROCESS BUFFER 
READ BLOCK OF DATA 


MACRO UR0S-01A 01- -JAN-72 00 US PAGE ? 



1 . SBTTL READ BLOCK OF DATA 

2 ;* 

3 i% READ NEXT BLOCK OF DATA FROM DISK 

4 it 


5 

001002 




READ * 




6 

001002 

005767 

002106 



TST 

FFG 


7 

001006 

001403 




BEQ 

Ril 


8 

001010 

062767 

000002 

002066 


ADD ‘ 

42 > READST 

5 SET READ SECTOR NUMBER 

9 

001016 




Ril* 


- 

10 

001016 

016067- 

001074’ 

000022 


MOV 

READRS CR0), READAD 

5 SET READ ADDRESS 

11 

001024 

012767 

000001 

002062 


MOO 

41 , FFG 


12 

001032 

005067 

000014 



CLR 

CNTR 

i CLEAR ERROR/FUNCT I OH 

13 





9 




14 

001036 

004567 

000000G 



JSR 

R5 > LKTRAM 


'15 

001042 

0000006 




. WORD 

FILM 


IS 

001044 

©03104’ 




. WORD 

READST 


17 

001046 

000000 



READAD : 

. WORD 

0 


18 

001050 

000004 




. WORD 

4 

; READ 

19 

001052 

000000 



CNTRs 

.WORD 

0 


20 





it 




21 

001054 

005767 

177772 



TST 

CNTR 

; ERRORS 

22 

001060 

001402 




BEQ 

READ3 

; NO? GO EXIT 

23 

001062 

- 000167 

177440 



JMP 

FIXET 

5 ERROR ON LAST READ 

24 





» ’-fc 




25 

26 

27 

28 

001066 

001066 

000207 



READ3 1 

P.TS 

PC 


001070 

001120’ 



s T 

READ1 s 

. WORD 

BUF1+16. 


29 

001072 

002120’ 



READS: 

. WORD 

BUF2+16. 


30 

001074 

001100’ 



READRS : 

.WORD 

BUF1 

; READ BUFFERS 

31 

32 

33 

001076 

002100’ 



* t 

. WORD 

BUF2 


001100 




BUF1 * 

. BLK.W 

SIZE 


34 






.. BLKW 

SIZD 


35 





it 




36 

002100 




BUF2 * 

. BLKW 

SI ZB 


37 






. BLKW 

SIZD 


38 





it 




39 

003100 

000000 

000000 


FTOR: 

. WORD 

■ 0j0 


40 

003104 

000000 



REhDST * 

.WORD 

0 


41 

003106 

000000 

000000 


LRSEC : 

. WORD 

0 j 0 


42 

003112 

000000 



REDEX : 

. WORD 

0 


43 

003114 

000000 



FFG : 

.WORD 

0 


44 

003116 

000000 



FFLG * 

.WORD 

0 

; FIRST BLOCK FLAG 

45 

003120 

000000 



FCNTR s 

. WORD 

0 

? no; frames read 

46 

003122 

000000 



FCNTW : 

.WORD 

0 

? NO . FRAMES WRITTEN 

47 

003124 ■ 

000000 



MAXW1 * 

. WORD 

0 

5 POINTER TO MAXI VELOCITY 

48 

003126 

000000 



MAXW2 : 

. WORD 

0 

; POINTER TO I1AX2 VELOCITY 

49 

003130 

000022' 



PRODAT • 

. WORD 

LDUDPT+18. 

; PROCESS BUFFER ADDRESS 

50 





it 




51 


000000' 




. CSECT 

ABTERM 


52 

000000 

000000 



ABTEM : 

.WORD 

0 


53 


000000 ’ 




. CSECT 

IFLDU 


54 

000000 




IFLD = 

. BLKW 

1 


55 





it 




5b 


000000 ’ 




. CSECT 

IHDLI 



57 000000 000000 


. WORD 0 


MAXI * 



FILL PROCESS BUFFER 
READ BLOCK OF DATA 
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59 

000002 

000000 


MAX2 » 

. WORD 

0 

59 

000004 

000000 


I EOF I = 

. WORD 

0 

60 


000000 ’ 



. CSECT 

LDUDAT 

61 


000000 ’ 


LDUDAT 

55 „ 


62 

000000 

000000 


I FLY s 

. WORD 

0 

63 

0001002 

000000 


I FRM : 

, WORD 

0 

64 

000004 

000000 

000000 

TNI NT: 

. WORD 

05 0 

65 

000010 

000000 

000000 

TMEND : 

. WORD 

05 0 

66 

000014 

000000 


I DAY: 

. WORD 

0 

67 

000016 

000000 


I PLN = 

. WORD 

0 

68 

000020 

000000 


NUMPTS ■ 

: . WORD 

0 

69 


000001 5 



. END 
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FILL PROCESS BUFFER 
SYMBOL TABLE 


ABTRtl 

000000R 

002 

BB 

000200 


BNBT 

» 000002 


BUF1 

001100RG 


BUF2 

002100R 


BUSY 

* XXXXXX G 


CNT 

000000 


CMTR 

001052R 


EOF 

= 000040 


FCNTR 

0031 20RG 


FCNTW 

003122RG 


FFG 

0031 14R 


FFLG 

0031 16R 


FILEOF 

000522R 


FILL 

000000 RG 


FI LLP 

0003S0R 


FILLB 

000322R 


FILLC 

000462R 


FILLE 

000060F 


FILLE1 

000064R 


FILLXT 

000526R 


FILL0 

000014R 


FILL1 

000070R 


FILL2 

000246R 


FILLS 

000302R 


FILLS' 

0004 10R 


FILL7 

000442R 


FILM = 

XXXXXX G 


FIN 

G 


FIXET 

000526R 


FIXT 

000564R 


FIXT1 

000560R 


FNNP 

* 000006 


FOUR = 

013560 


FTOR 

003100RG 


HDRW 

* 000004 


HLT . 

000602R 


I DAY 

000014R 

005 

I EOF I 

000004R 

004 

1FLD 

000000RG 

003 

I FLY 

000 000 R 

005 

IFRM 

000002R 

005 

IPLN 

*50001 SR 

005 

LDUDAT 3 

000000R 

005 

LEW 

- 000340 


• LKTRAN- 

XXXXXX G 


LNKBLK“ 

XXXXTX G 


LRSEC 

00310SRG 


flAXU 

000634 R 


riAXUi 

000674R 


MAXU2 

0007 16R 


MAXW1 

003124R 


MAXW2 

003126R 


MAXI 

0000 00R 

004 

MAX2 

000002R 

004 

NPNTS * 

001740 


NEXT 

= *:m*X G 


NUMPTS 

000020R 

005 

ONE 

000000 


PC 

=4000007 


PRODAT 

00313OR 


PSW 

177776 


READ 

001002R 


READAD 

00104SR 


READRS 

001074R 


READST 

003104R 


REAB1 

001070R 


READS 

001072R 


READS 

001066R 


FEDEX 

0031 12R 


REQUST - 

XXXXXX G 


R0 

- X 000000 


R1 

X000001 


Rll 

©0101SR 


R2 

=4000002 


, F3 

X000003 


F4 

X000004 


R5 

=4000005 


ix) R6 

X000006 


R7 

*4000007 


SECT2 

000142R 


o SECTS 

000150R 


SECT4 

0001 52R 


SECTS 

000106R 


w SECTS 

000132R 


SI ZB = 

000010 


SI ZD 

= 000370 


1 SP 

X000006 


STORE 

0006 12R 


SWR 

- 177570 


THREE = 

007640 


TIFR 

000720R 


TIMR1 

= 000014 „ 


T I MRS = 

000016 


TIMS1 = 

000010 


TINS2 

= 000012 


TMEMD 

0000 10R 

005 

TMINT 

000004R 

005 

TWO 

= 003720 


WRITE = 

XXXXXX G 








. ABS. 

000000 

000 








003132 

001 



y 




ABTERM 

.000002 

002 







IFLDU 

000002 

003 







IHDLI 

000006 

004 







LDUDAT 

000022 

005 






' 

ERRORS 

DETECTED = 

0 







FREE CORE 5 11744. 

WORDS 







FILL? L2<FILL . 2 
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SUBROUTINE SCAT 
INTEGER PLTSYM 
D I MENS T ON L.BUE < 1 5 ) 

D T HE MS ION I M X < 1 0 ) , I SYM < 1 0 ) 

DIMENSION BK(ll) 

D T HENS 1 0 N PL T SYM ( 1 0 ) i I B UF C 6 > 

COMMON XCG < 2 ) • YCG <2>, I NDE X < 250 ) , NCORPT <2>» NO I SES (2) , PKVEL < 2 ) 

1. , EL VANG <21, NVORTX, KFRM, RT I ME 
C 0 M M n N / BUFF E R / 1 BUF 1 < 20 ) 

COMHON/THRS /LDFTT ( 6 > , JAUTO 

CQMH0N/DSPL/NS1 , NS 2, NS3# NS4# LOT, KSM, KLQ, LL..DT 
COMMON/ AB T E R M / I ABTRM 

COMMON / T NPT/PTTOL , NO I SE , V EL TOL , VORTOL , t RAO I, TRAD 1 2, 

1 NR AD I # CON X V , ST I HE • FRO TOL 

COMMON /L DVD AT / 1 FL Y , I ERM , I TM I NT < 2 > > I THEND < 2 > , I DAY , I PLN . NUHPTS # 
t IXU 000 > # I Y < 1. 000 > # I NTEN S ( 1 000 ) , I VEL < 1 000 ) 

COMMON/ 1 HDL I /HA X t , HA X2> IE OF I 

DATA IX OFF , T YOFP , X STRT , YS TRT # RL X , RL Y , I XL, I YL / 

1 1.4-0. 173,. 2:00 # 0. i 700 , 400 ■ 704, 442/ 

DATA WCHAR/'V'V 

DATA I SYM/ ■- A •' , •' B - , ■' C y , •- O', FL ' 0 ' H y , ■' I •' , •' J ' / 

DATA PLTSYM/ •' 0 .1 ■' 1 y . ■- 2 •' , •' 3 , - 4 •' , ■*' 5 6 y , '7 ' , y 9 •' / 

DATA BK/20. .■ 30 , 40. , 50 ,60 , 70. # 30 , SO , 100 #110 ,120 / 

DATA IBUF/1 i# 1 , 0, 0, 1 , 0/ 

CALI... OPEN < 1,1) 

X SC AL ~ T X L /PL X 
yscal=i YL/RLY 

I BUF ( 1. X =NS4 
kTUIO-2 

CALL D I SP I O < 14, H: TWO , KLG ) 

C 

C OUTPUT HEADER ON AUXILIARY SCREEN 

NST*2 

IF < NS4. EQ. 2 > NST= 1. 

CALL D I SPICK 1 1, NST) 

CALL D T SP 1 0 < 1 , 36 , I BUF 1 ) 
r: 

C RE -SELECT SCREEN FOR SCATTER 

CALL DI SP 10(11# NS4) 

C 

22 CONTINUE 
CALL. DBUG 
C 

C BRING IIP BACKGROUND 

call. D I SF’ 1 0 ( 2 , 13f 0) 

c 

c ENCODE FRAME FOR SCATTER HEADER 

KFRM- J ABS ( TFRM> 

CALL DECO < KFRM , 2 , I BUF 1(19)) 

I F < I FRM. L T 0>I BUF 1 < 20 ) ~PL. TSYM < 3 ) 

TEXT FRM. GE. 0 ) I BUF I < 20 ) =PL TSYM ( 7 ) 

0 

C BRING UP SCATTER HEADER 

CALL D I SP 1 0 ( 1. , 40, I BI IE 1 ) 

C 

C STORE INDICES OF HIGHEST JO VELOCITIES IN ARRAY I MX 

nn 30 1 = 1, 10 
30 I MX »T > sso 
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DO 31 K-l , 10 
i vl.m— o 

DO 3! I ==' 1 , NUMPT -3 

IF (I VEL (I) LE. IVLMiGO TO 31 

IF ( K. EQ 1 >60 TO 33 

KM1 -K- 1 

00 32 ,Jss 1 , KM t 

T F ( T. . EQ. I MX ( J ) > GO TO 3 1. 

, 32 CONTINUE 

33 tmX(K)=I 

T VLM« T VEL ( I ) 

31 CONTINUE 

0 

C ENCODE VELOCITIES 

DO 40 ! = ! • 10. 2 
■J“l 1-1 
■J» I MX <•.»>■ . 

IDUM«0 

I F ( J EQ. 0) GO TO 300 
CALL. GET VEL. < I VEL. ( J ) . VEL. ) 

. IDUMaVEL 

300 CONTINUE ... 

f:| ~ ( X 1 I 1 / 2 

CALL.. DECO < I DUM • 4 , I..DMF < K > ) 

Ja t 0- I 
, |s=IMX ( .J ) 

I DUM-0 

IF (U EQ. 0)00 TO 301 
CALL GET VEL ( I VEL ( J ) .. VEL ) 

idum-vel 

301 CONTINUE 

KaK-1 

CALL OECD ( I DLJMj 3, LI3UF < K ) > 

40 CONTINUE 
C 

c OUTPUT VELOCITIES 

CALL DISE‘T0(2‘ 24. -1 ) 

CALL OISPIOU , 30, LBLJF) 

c 

C SELECT CHARACTER TO BE OUTPUT FOR EACH POINT AND OUTPUT 

KTNO-2 

CAL L D I S P I O H 4 , K TWO . KSM ) 

DO 1 I»1^NUMPTS 

CAL L GET VEL < I VEL < T > , VEL ) 

DO 34 1=1, 10 
I F ( I ME I MX < L. ) ) GO TO 34 

1 CHARa I SVM ( L > 

GO TO *5 

34 CONTINUE 

9 J-U-l 

T F < J > 6, A, 2 

2 IF ( VEL. LE. BK < J > ) GO TQ 9 

3 . Ja. J+ 1 

I F ( .J— 11)4,4,7 

4 I F < VEL GT BK ( U > > GO TO 3 

8 7 CHARaRLTSYM < .J- 1 ) 

GO TO 5 , 

6 J=2 

GO TO 1 

7 , Jsb 1 1 

GO TO 8 

*5 CONTINUE ■ 
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XF =IX < T ) *CONXY 
YF~JY( t )*CONXY 
T BUF < 5 ) « l 

r BUF ( 3 ) * I X0FF4. < XF-XSTRT ) * XSCAL 
I BIJF ( 4 ) ss I YOFF+ < YF- YSTRT ) * YSCAL 
CALL SFTAD < I BUF (A), I CHAR ) 

CALL mSPTCKA. 12. IBUF> 

1 CONTINUE 

C 

C CALCULATE centroid and PLOT VORTEX POSITION WITH V 

KTWO-2 

CAL L DISPICU 14.. K TWO.. KSM) 

CALL CENTRO 
KTWO«2 

CALL. D T SP I O ( 1 4 , KTWO, KLG ) 

TEfNVORTX EO. 0)00 TO AO 
DO 01 1 = 1,2 

T F < xco ( I ) FQ. 0 ) on TO A 1 
I BUF ( ? ) =s l XOEF+ ( XCO < I ) —XSTRT > *XSCAL 
T BUF < 4 ) bs I VOFF+ < YCO (T)-YSTRT) * YSCAL 
CALL SET AO < I BUF ( A ) , 7 VCHAR ) 

CALL. D 7 SP 10(4., 12. I BUF) 

61 . continue 
60 CONTINUE 
C 

C HARD COPY IF REQUESTED 

T F ( JAUTO EO. 1 ) 00 TO 65 
CALL D I SP IO(l o , NS 4 ) 
r: 

C DELAY 

DO 1.1 l = i , a*z> 

DO 1 1 Jss i . 2000 
1 I BDUMB= ( ADUMB+2. 5 ) /3 A 
65 CONTINUE 

C 

c read RECORD FROM TAPE 

CALL VREAD 
C 

C EXIT IE END OF FILE 

IE ( I EOF I FO t)on to 20 
C 

C FXTT IF i 

I E ( I ABTRM EQ. S3 ) 00 TO 20 
00 TO 22 
20 RETURN 

END 
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SUTWII..IT T NF DECO <KK. KKK • k'P) 
RYTF KP>'5> 

PVTF WHO 

data who / 

T T =0 

k'asO 

TP ( V\i 't to. 25. 25 

1.0 kfr=-KK 

KTP < 1 > =WEO 
T T = t 

k'NMsaK'MM- 1 

25 t P i k’tvJM— 5 ) 35,50.200 
35 K»krK/ 1. 0**K!MM 
50 DO 1 00 T =1 , k'WM 
k'T^k 

k'=k'K/ \ 0*-* f KWM- T > 
t. 00 KP f T + T T > sstf-KT* 1. 0+43 
200 RETURN 
END 
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SUBROUTINE VRFAD 

THIS SUBROUTINE READS THE VORTEX DATA TAPE FOR POST-PROCESS T Ml 

COMMON/ BUFFER/ TBMF1 < ! 8 ) 

COMMON/ T DUMMY /NBA . MFL 

COMMON / T PI. 0 V / T pi DV 

COMMON /CELT/ CELT 

COMMON / T HDl. T / MAX 1. . MA X 2 , T FOE I 

COMMON / T MPT / PTTOL ■ NO I SE , VELTOL , vnRTOL. . T RAD I I RAD 1 2 * NR AD I . 

1. CONXV. STTME. EROTOL 

COMMON /L DVD AT / 7 FI. V , T PRM • TTMINT ( 2 ) » T TMEND < 7 . ) T DAY , IPLN* NUMPTS, 
t T X ( 1. OOO > , TV.*' 1 000 > . T NTEMS ( 1 000 > , T VEf... < t 000 > 

COMMON/ PL NAME/ T DAT ( 60 ) 

COMMON /ROUT/ ROUT,. LORE 

COMMON /SETUP / DATE , ,..IDFT ( 20 - 6 ) .. JPLTP ( 3 ) , I.F'L I ND • I L 1. ( 60 ) , T I M ( 2 ) , 
t T E1.. B ( 3 > , T L D V , I Awe , T I... 2 < SO > , KRBUF < 6 ) 

T NT EGER C.EL 7 

n t MENS T ON DUE 1 < 2 7 , does < 2 1 


C 

20 

C 

c 




0 


-7-cr 

i": 


40 


50 


60 

C 


c 


DATA BUE t / ''TAPE PRR •" / 

data rue 2/ "'Enp ■-.■••read"/ 
DA T A DATS / VRE D •' / 


ROUT St DATS 

READ PHYSICAL RECORD FROM TAPP *MT 1 
COMT I NUE 

CALL GET ( 1 .. 1 , I ELY . 401 0) 

WAIT FOR T /n CiPFRAT I ON TO COMPLETE ON Mil 
CALL WATT < 1 , 0 , N ) 

GPT RETURN STATUS FOR END— OE-F T LE INDICATOR 
CALL SFi.lN ( 1 , 7. NBA, IF HP I } 

TF < I EOF I > 35 , 35, 30 
CONTINUE 

CAL L D I SR 1 0 < 3 . 8 , BUE 2 > 

return 

CONTINUE 

CHECK FOR 4008 WORD PHYSICAL RECORD READ 
IFUM-l > 50,50,40 

call. D T SP 1 0 ( 3, 8 , BUE i > 

RETURN 

CONTINUE 

TF ( ( ( TFRM. GT O) AND < I F|„.DV EO. ?. ) ) OR ( ( IFRM. LT 0) AND 
1 ( IFI...DV FP 2 )>) OO TO 20 


DO 60 1=1, NUMPTS 
I VEL < I > = I ABS < I VEL ( I ) ) 
ENCODE FLY-BY NO 
CALL. OECD ( IFLY, 5, TFL.B) 
ENCODE DAY 

CALL OECD ( T. DAY , 3, DATE ) 
Return 

END 
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SUBROUTINE DBUG 
COMMON /ABTFRM/ iabtrm 

r: OMMONi X CG < 2 ) , Y CG <21, INDEX ( 2 50 ) , NCOR F T ( 2 ) , NO TSES < 2 ) , 

X PKWEL. < 2 ) J EL VANG < 2 ) , NVGRT X > KFRM , RT I ME 

COMMON /ATI... P / I BASE. DIM X 

COMMON /BUFFER / T BLIP t f 1. 2 ) , I DOE 2 < 6 ) . I BUF3 < 2) 

COMMON /' BUFF R / T B F R < 1 3 ? 

COMMON /CMTRL/ KPRQC, TACQTL, MTIRF 

COMMON /DS’BL/ NS' 1 * NS 2- NS3 NS4, LOT * K8M, KLG, LLDT 

COMMON/ T ADDRS / I ADD X V ( 2 6 ) , I ADPT S < 2 > » I DAT A < 66 ) • I ADD AT , BLANK • 

1 IABLNK 

COMMON / 1 HDL T / MAX 1 , MAX 2 ■ I EOF I 
common /teldv/ TFLDV 

COMMON/ 1 NPT/ PTTOL . NO T SE , VEL TOL , VORTOL » I RAD I , I RAD 1 2 • NR AD I , 

1 CON x v , ST I ME . F P V TOL 

COMMON / 1 N I T L / ITPLT > POP T S < 2 ) > S T ARB S < 2 > * VEL MNF 
COMMON /K ST FI... /KSTEL. KPLN 

COMMON /'L DVD AT / T Ft V , I FRM . T TM I NT < 2 > < I TMEND ( 2 ) .« I DAY . I PLN, NUMPTS, 

1 t V M 000 > , T Y ( 1. 000 > , I MTFNS < 1 000 > - I VEL ( 1 000 > 

COMMON /OUT / I0WT<6) 

COMMON /PL NAME/ T DAT c 60 ) 

COMMON /ROUT/ ROUT. KGRF 

COMMON /SEARCH/ T SFBNi I SD AY. ISPN 

common /setup f DATE - .JDFT < 20 6 > .« JPLTP ( 3 ) , I PL I ND , I L 1(60). TIM ( 2 ) .• , 

1 T Ft B C 3 )• I L DV , T AHC . I L 2 < 90 ) , KRBUE < 6 ) 

COMMON /TMF’S/ KDFTT ( 6> • UAUTO 
C OMM ON / X CORDT /K V t , K X 2 , K X 3 - K X 4 
BYTE I DATA 
INTEGER BLANK- 
DATA M/6/ 

CALL SSWTCH CO. K) 

TE (K NF 1 > RETURN 
CALL D ISP TO (7, 1) 

KT|aI0=2 

CALL D T SB I O C 1. 4 , KT WO . KSM ) 

CALL 0 T SP 1 0 ( 1. 3 . 32 ) 

WRTTECM. 1.00) I FLY.. I FRM. T T M I NT . I TMEND . I DAY. IPLN* NUMPTS 

1. 00 FORMAT < SX , I Ft.Y=- , 1 6. 5X . •' I FRM- ■' > 16. 5X , "El RST TIME =' , 2 < 16. 1 X ) » 4X . 

1 'LAST T I ME=-' , 2 ( 1 6. 1 X > , /5 X , "I DAY-" , 1 6. ' I PL..M= •' . 16. *' NUMPTS » " . 16. / 

2 / / 1 3X , -X V I /N VP/ VM / ) 

K 1 =NUMPTS 

DO 346 T — 1 .. K 1 

CALL SUBBIT ( I NTENS < T ) , 2. S> KKt ) 

CALL SUBB it (I NTENS ( I ) . 10.7, KK2 ) 

CALL SUBB IT (T ABS ( I VEL, < I > ) , 2. 7, KK3 ) 

CALL SUBB IT U ABS < I VEL < I > ) . 10.7, KK4 ) 

WR I TE CM, 1. 0 1 > T , I Y ( T ) . I Y ( I ) , KK 1 , KK2 . KK3, KK 4 
346 CONTINUE 

1 0 1. FORMAT < t X , 1 6. 1 SX . 16. 1 IX. 1 6 . 4 X . I 6 , 4X , 16, 4X, 1 6 , 4X . 1 6 ) 

999 CONTINUE 

CALL SSUITCN < 1 , K > 

IF CK EO 1) GO TO 850 
FNDFTLF m 
850 CONTINUE 

CALL D I SR 10 Cl. 3, 64) 

TEC C.JAUTO NE 1 ) AND <K. NE l ) > CALL D ISP IOC 10.. N84) 

RETURN 

FND 
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BLOCKDATA 

COMMON! . XCG ( 7 > , Y CO < 2 > , 7 NDEX < 250 ) , NCORPT ( 2 ) , NO T SES < 2 ) 

1. PKVEL < 2 ) , EL VANG < 2 > , NVQRTX , KFRM . RT 7 ME 

COMMON /AB’TERM/ J ARTRM 
COMMON /OTLP/ T CARE , OTMX 

COMMON /BUFFER/ I Rt IE 1 < 1. 2 > , T BUF.2 ( 6 ) , I BUF3 < 2 ) 

COMMON /Ol.lFpp/ j rfr ( i 2 ) 

COMMON /CMTRL/ KPROC, TACQTL. MTTRE 

COMMON /OSRL./ NR!.. NS2, NS3, NS A. L.DT, KSM,-KLG, LLDT 

COMMON/ T ADDER/ 1 ADD XV < 2 A ) , I A DPT S < 2 > , I DATA ( 66 ) < JADDAT, BLANK. 

1 TABLNK 

COMMON / ! HDL X / MAY!, MAY 2, I EOF! 

COMMON /TFLOV/ TFLPV 

COMMON / T MPT / PTTOL, NOTRE, VELTGL, VORTGL, T RADI , I RAD 1 2 • NRADT , 

1 CONYY, RTTMF, FROTOL 

COMMON /TNT Tl.../ T TP( .T - PORT R < 2 > , STARRS < 2 > , UELMNF 
COMMON /KRTFL /KRTFL • KPI...M 


COMMON /L.DVDAT/TFL Y. TERM, T TM T NT ( .2 > , I T MEND ( 2 > , T DAY, TPLN:. NUMPTS, 
1 TYd 000 > . T Y < 1. 000 > . I MTFNS < 1 000 V . I VEL < ! 000 ) 

COMMON /OUT / T OUT f A ) 

COMMON /PI NAME/ T RAT /AO) 

COMMON /ROUT / ROUT, KORF 

COMMON /RETUP / DATF. .JDFT f 20 , A > . URL TP < R ) , T PL I ND, I L ! ( AO ) , T I M f 2 ) , 
1 T FI... R t J R) , T I... DO . T AMO , T I , 2 •' 90 > , KRBUF < A ) 

COMMON /TMPS/ KDFTT ( A > , JAI .ITO 
COMMON /XCORDT/KY ! KY2. KY R, KY4 
COMMON/ T READ / T READ 
C OMMON / MT WF I... O /MT WEI... 0 
RYTF I DATA 
TNTEOER BLANK 

CONY V 2099. / 1 023. (640 METERS) 

DATA CONXY/2 05 1 SOS 4 / 

DATA J TM T MT, T TMEND /Q, 0 , 0 . 1 50/ 

DATA KSM. KI...0/0R54RR, 034033/ 

DATA TREAD/O/ 

DATA MTWFLG/0/ 

DATA IFLDV /Q/ 

DATA T DATA/ A A 2/ 

DATA BLANK/-' '/ 
data ROUT / 'BL -'./ 

DATA T P LB/2# •* 0 0 ' , *' 0 •"/ 

DATA DATE/-' -*• / - 

DATA ILL/420, 677 , 644, ART, - 1 , 420. 621, 644, 621, 


! , 420, 51.7, 700, 517, 


1 - 1 , 4 20 , 510 , 700 , 5 1 0 , - 1 

2 420, 429, 700, 4R9, -i 

R 4 20 . 3 1 2 , 700 , 3 ! ' 


42 0, 473, 700- 47 R, -1 , 420, 466, 700, 466, “1, 
420, 472, 700, 422* -1, 420, 319, 700, 319, 

1 . 420- 275. 700, 275, -1 , 420- 268, 700, 268, -1 / 
DATA PTTOL. NOISE. VELTOL, VORTOL. TRADT, FRVTOL/0. 50, 2, 0. 50, 0 50, 40. 
1. O 50 / 

DATA J L DV , I AHC /0 , 1 / 

DATA I PL I ND/ 12/ 

DATA .JDFT /20*40. 20*50, 20*50, 20*20- 20*25, 20*50/ 

DATA NS 1 i NS 2, NSR, MS4/7. 1 , 3, 3/ 

DATA LLDT / 17/ 

DA 7' A K X t , K X 2 . K X 3 , K X 4 /560 , 700 , 770 , 9 J. 0 / 

DAT A TACQTL / 1. 08+06 / 

data mttrf/o/ 
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DATA II. 2 / 910 - 583 . 93 

1 -1.5 60 . 4 A A . 7 00 , 4 A A. . 

2 5 AO- 385 . 700 .. 385 - 


i), 5.33 , - t , 910.* 57 A* 800* 57 A? - I * 5 AO* 473, 700* 473 
-1 ,-flAO, 429, 700, 429* -1, 5 AO* 472, 700* 422* -1. * 

-1 , 5 A 0 , 378, 700. 373, -1, 770, 275* 910, 275, -l, 


770, 2A8, 910. 3A8* -1 
137, -1 


4 5 AO* 1.37. 5 AO 

5 5 AO* 13 A* 5 AO, 1 3A, -1. 

DATA I AWT / 1, -1 , 0- 0 , 1 20 
data I DPR / 1 , 1, 308* A 57, 

DATA T BASF , D T MX 65 A A * 23 O 0 / 
DATA K.R'BIJP’ / 1. * - 1 ■ 0 * 0 , l 80 * O / 


5A0- 23 1 . 700* 231. * -t , 5 AO* 224, 700, 224, 
5A0* 180, 5 AO, 1.80. -1, 5 AO, 143* 5A0* 143, 
A3 0 , 1 4 3 , 7 00 , 143,-1, A 30 , 1 3 A , 7 00 , 1 3 A , 
0/ 

, 0 * 1*1* 40 A, At 4. 5, 0/ 


- 1 * 

-1 , 

-1. / 


DATA 

T DAT / 

- B- •- 

, •' 70 " , 

y y 

t i 

•- L-' , 

■- i o -■ , 

3 12 

■-2 ' , 

"*E •’■* 

■' *JT ■“ * 

'15-'* 

■•’72 

1 


•'C-'" 

88 . 

o •" * 

•" 4 •“ , 

'£ 

•" ,JT •' , 

- B- •' , 

■' 7 3 

7 4 

■' VC •' , 

•'-1 

2 

"’0 -2. 

7 •' 

, •" E , 

■' PR •“ * 

-•B- y * 

'74 ' > 

-■ 7 ■" . 

■" BA ■' , 

“Cl •'* 

“ 1 1 •' * 

•' 1 •' * 

•'E 

2 

PR - , 

" DC 

. '-8 '2* 

/ y 

-A-'* 

■' 30 •' * 

•' o ■' * 

OT "■ , 

■'• HE •' 

'R '* 

'DC', 

•' —9 

4 

END 

40 •' / 


. 'YU;*, 

8N •" , 




nr: •' , 


x 0 v * 

VA ' , 

c- 
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SUBROUTINE STRT ( N ) 

COMMON X CG < 2 . ) . Y CG ( 2 > .< I NDEX < 250 > , NCORPT < 2 ) , NO T SF S < 2 T , 

1 RKVEL •: 2 ) ■ EL VANG < 2 ) . NVORTX . KFRM . RT I ME 

COMMON /ABTERM/ TABTRM 
COMMON /BUFFER / TRUFI 20 > 

COMMON /CFl I /CELT 

COMMON VCNTRL. / K PRO O’ TACPTL . MTTRF 

COMMON /DSEM. ./ NS! . NS 2. NSS • NS 4, LOT, KSM • KLG, L.LDT 

COMMON /THDLT / MAX t , MAX 2# TEOET 

COMMON/ TNT TL f ' T TP 1 !. T , PORT S (•?>, STARRS < 2 ) . VELMNF 

COMMON / T NRT / , PTTOI . MO T SE , VEL.TOL . VORTOl. , T RAO I . I RAD T 2 . NR AO T . 

1 CON XV , ST TMP. PRVTOL 
COMMON / T READ /' T READ 
COMMON /KSTEI /KSTFL- KRLN 
COMMON f\i T P'L.. R /K TEL G 

COMMON /LDVDAT/ T PLV , T ERM, T TM T NT < ;? > , T TMENO < 2 > , T DAY , T PLN . NUMRTS, 

! T y / 1 000 > , T. Y ( ! 000 ) . T MTFNS < 1. 000 V . T VELj \ 000 > . 

C OMM ON / MTUJE I... 0 / MTWEI G 
COMMON /ROUT / ROUT, KOBE 

COMMON /SFTUP / DATE. ..JOET t 20 . A > , JEM... TP < 3 > , I PL. T NO , I L 1 < AO >, T T M ( 2 ) , 
t T FL B < 3 ) • T LOO , I ARC . T L 2 < SO ) . KRBUE ( A ) 

COMMON /ST AT/ TOT / ft > , KVAN1. , KVAN2 
COMMON /TMPS / KTrETT V A ) , JALJTO 
BYTE CWAR ( A ) 

BYTE T DATE < 4 > 

INTEGER CFL I 
O 7 MENS T ON E E-MSG * 3 > 
n I ME NS T ON T EM ;IE ( A ) 

DIMENSION XSTTMi'2 V 
D I MENS TON N < A ) 

01 MENS TON NNN ( 2 > 
n T MENS JON TEXT < ! A > • TEXT! ( t A ) 

ECU I VALENCE ( CWAR ( \ ) . TEf..B < 1 > > 

EQUIVALENCE ( I DATE ft). DAT F ) 

DATA OATS / ' STRT / 

DATA ERMSG /-OPT ", 'TAPES.-' ERR'/ 

DATA I RUE/ 1,1., O, 0, A 4 , O/ 

DATA KLGEM /O' 

DATA TEYT/--FR OS- -'ATA L. *' CORL. *' FT ’L *' NOT-', “SE L. ' ANGL ' ■ 'E PL. 
1 -K VL -'EL T-L ■' I ME •" .RD' , -'RT PL. -'OS S', 'TARBL ■' PDSL/ 

DATA TEVT1 / •' R-'. 'TS *L P L ' S ' P L. S ‘L 'MN M' . ' X 

1 . , - p >g •' ■- XL. ■' YL. •" L. ■' \ X -* Y ■*/ 


STRT SUBROUTINE PROCESSING 

t 

VORTEX - COMMON VARI ABLES DEE TN IT ION 


CPI... T 
CHAR 
DATS 
TABTRM 


CONTINUOUS MODE FLAG rO-OPERATOR CONTROLLED ), 1 -CONTINUOUS ) 

BYTE ARRAY; EQUIVALENCE ( CHAR. TEU5) 

MNUEMON I C OF SUBROUTINE CODE 
FLAG TO INDICATE KEYBOARD REQUEST 
*. < ABORT) T 42\ 


TEOET 
T El V 
T RAD T 
TRAD I 2 - 


1 ( END FLY-BY -f ISS\ 

FLAG FOR END OE FLY-BY 


El 


( 0-NORMAL FRAME * 1. -ENO-OE-FLY-BV ; 


V-BY NUMBER 


CORREL AT r ON C T POLE RAD T US 
“illARE OR CORRELATION CIRCLE RADIUS 
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CALL D ISP TO < 13. 1. 1 

C T MITTAL T7F PORTS AMD STARRS FOR 1ST FRAME 

PORTS <1. )«0 
PORTS < 2 1 -900 
STARRS < 1 1 =800 
STARRS ( 7 ) «0 
VEI MNF=0 0 
T TP! T =0 

I RAD 1 7 - 1 RAD T * T RAD T 
MRADT--TRADT 

DO 4:31.7 1 = 1 ,8 

4:317 TOT ( I ) =0 0 



cv AN l =0 
kVAN2-0 


c 

BRING UP 

D I SPLAY BACKO ROUNDS 


T F < MS 1 EQ 

3) GO TO 75 

c 

BRING UP 

X— Y PLOT BACKGROUND 

f: 

SELECT S' 

CREEN MSI. 


CALL D ISP TO 

< 1 1 , NS 1. 1 


CALL D ISP TO 

12.7,8 ) 

7 

r 5 CONTINUE 



T P < NS2 EQ 

31 GO TO 80 

c 

f: 

BRING UP 

T T ME PLOT BACKGROUND 

c 

SELECT SI 

~:rffn ns 9 


CALL. D ISP TO 

( 1 1 , MS 2 > 


CALL D ISP TO 

< 2 . 11, 1 2 > 

C 

:0 CONTINUE 


81. 

k’ERM-0 
CONT I WUE 



c 


C INITIAL T 7E COUNT FOR MAXIMUM TABULAR SIZE 

LFRAME-KFRM+55 
IF (MS3 EQ 3> GO TO 85 
C 

C BRING UP TABULAR HEADING 

C SELECT SCREEN NS3 

CALL 0 I SP I 0 < 1 1 ,NS3) 

C A L L. 0 J SP T 0 ( 2 . 1 9 , 0 ) 

LOT =712 

C PRINT TABULAR HEADING 

I BLIP { 1 ) = NS 3 

IBUF<4) = LDT 
CALL SETAD < I BUP < A ) , TEXT ) 

I BI .IP ( 3 ) «5 1 2 

CALL D T SP I O < 4 .■ 12. I BUP ) 

C 

IBUF(51=A4 

LOT - LDT - L L DT 

T BUP ( 4 ) ss LDT 

CALL SETAD < I BUE ( A 1 , TEXT 1 > 

CALL. D T SP 1 0 ( 4 , 12. IBLIF) 

LDT as I DT - LLDT 
85 CONTINUE 
I ABTRM=0 

IF (CELT FO 1> GO TO 850 
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c 

r; JF not CONTINUOUS MODE create header fill-in 

N < 2 ) = 1 0 
call dflt < N > 

850 CONTINUE 

c 

C PROCESS' DATA 

c 

c CHECK FOR ADDITIONAL PACES OF TABULAR DATA 

IF < L FRAME OT AO) 00 TH 894 
r: CHECK FOR OPERATOR CONTROLLED MODE 

I F < CFL I ) 891 , 89 1. .• 857 
857 CONTINUE 

r: 

C IP CONTINUOUS MODE LOOK FOR START FLYBY INTERRUPT 

C 

c STOP — WAIT FOR START FLY-BY INTERRUPT 

0 IP IABTRM=4S ABORT FLY-BY 

89 IF >: TARTRM EQ 42) 00 TO 91 
I F ( KSTFL ME 1> 00 TO 89 

C 

C DECODE BCD-CODED PLANE TYPE 

T t. -KPLN/ 1. A 

I F ( KPLN- 1 A-w-I 1 OT 9 ) Kp LN= 1. A* 1 1 +9 
N f 2 > -KPLN— A-fr 11 + 1. 

N < 4 ) — 0 

CALL PTYP < N ) 

N ( 2 ) - 10 
CALL CELT < N) 

C 

C RESFT START FLY-BY INTERRUPT 

891. KSTFL— 0 

C BRING 1JP SCATTER PLOTS 

IF ( NS 4 EQ. 3) 00 TO 87 
CALL SCAT 
GO TO 95 
S7 CONTINUE 
f: 

C SELECT LARGE CHARACTER SI7E 

S94 KTW0=2 

CALL D I SP 10 1 14. KTWO, KL 0 ) 

C 

C BRING UP HEADER on SCREENS 1 AND 2 

c SELECT SCREEN .J 

CALL D ISP TO < 1. 1 , 3 1 
C PRTNT HEADER-FILL IN 

898 CAL L PI SP 1 0 < 1 , .8 A, \ BIJF 1 ) 

C SELECT SMALL CHARACTER SIZE 

KTWO —2 

CALL D I SP 10(1.4, KTWO , KSM ) 

C 

C IF OThfr THAW FIRST PAGE OF TABULAR DATA SKIP I NIT I ALIZATfON 

IF ( L FRAME GT 55) GO TO 90 
KTFL G=0 

T.F (KPROC EO. 2 1 GO TO 9 0 
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C: 

C IF REAL-TIME MODE ENABLE DATA & END -OR -FRAME INTERRUPTS 

CALL TNTT 
C 

C CALCULATE FLV-BY NUMBER FOR TARE 

T FLY=0 

DO B92 I a=i ,5 
IFLVs=IFLY«-10+CHAR( I >-48 
892 CONTINUE 

C DECODE DAY NUMBER FOR TARE 

IOAY=0 

DO A 00 1 = 1,8 

T DAY= I DAY* 1. 0+ T DATE ( T > -48 
600 CONT I NUE 

I RLN=IPL I ND 
f: 

C FRAME ENTRY POINT 

C 

90 continue 

c 

C CHECK FOR ST HP PLY -BY KEYBOARD REDDEST 

IF (TABTRM EG. 83) GO TO 95 


C 

c 


CHECK FOR ABORT KEYBOARD request 
TE (TABTRM NE. 42 "> GO TQ 92 ' 


C ABORT CODE 

C SELECT LARGE CHARACTERS 

C RESET KEYBOARD REQUEST CODR 

91 TABTRM-O 

I F ( KPROC NE 1 > GO TO 9 1. 1 
C . DISABLE START FLY-BY INTERRUPTS 

CALL D I SABI 

c DISABLE DATA .L FND-OE-FRAME INTERRUPTS 

CALL DISABL 

C SELECT OPERATOR CONTROLLED MODE 

911. CONTINUE 

cel I -0 

TP (MTUIELG EQ. O) GO TO 191 
TP (KPROC EQ. 2) GO TO 191 
CALL SPUN (0- 2. NBA, NFL) 

CALL SCI IN ( 0 . 2* NBA, NEL > 

NBA= 1 

c AL L SPUN ( o 5, NBA , NFL ) 

191 CONTINUE 

CALL D ISP ID <11. 1) 

C BRING UP INITIAL DISPLAY 

CALL D ISP 10 <2- 1.0) 

GO JO 950 
92 CONT I NUE 
C 

f: IF REAL-TIME MODE FILL PROCESSING BUFFERS WITH FRAME OF DAT. 

T F < KPROC EQ. 1 > CALL. F I LL 
C 

C CHECK FOR STOP FLY-BY KEYBOARD REQUEST 

jp (TABTRM EQ. 33) GO TO 95 
C 

C CHECK FOR ABORT KEYBOARD REQUEST 

IP (TABTRM. EQ. 42) GO TO 9J. 
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k-=k‘- 1. 

GO TO 96 ' ' 

97 CHAR < K ) =CHAR < K > +| 

C 

C RESET KEYBOARD REQUEST CODE 

lARTR(vt=0 

C 

C DELAY 

C HARD COPY 401.4 IE REQUESTED 

IP Cl AUTO NE 1.) CALL DISPIO (1.0>3) 

C 

C REAL-TIME MODE ' 

LT=2 

^ WNM ( 7 ) a 1. 

C J 

C CHECK* FOR POST —ANAL VSTfi MODE 

TF OCPROC ME. 2 > GO TO 98 
k'T— 9 

NNN ( 2 > -3 

98 CONTINUE 

C 

C CHECK’ FOR CO NT I MHOS OPERATION MODE 

|E ( CEL. I > 22* 99, 22 

99 COMT T NUE 
C 

C BRING up REAL-TIME OPTION SELECTION DISPLAY 

P BRING UP POST-ANALYSIS OPTION SELECTION DISPLAY 

CALL DIS'RTO ( 2* K’T. Q) 

CALL ETV ( NNN ) 

950 Return 
end 
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PA IBRffl ITT NE TERM (N) 

COMMON /CNTRL/ KPROC, TACOTLi MTIRF 
COMMON /MTWFLO/ MTWFLG 
I F f kfPROC. €. 9 . 2)00 TO 50 
IF (MTWFLO ME 1X30 TO 100 
CALL SFI_IN< 0 , 2* NBA. NFL) 

CALL SPUN <0.2, NBA , NFL ) 

CALL SFIJN(0» 3> NRECCl NFL) 

CALL WAIT(0, 0, NW) 

CALL CLOSE (2-0) 
tOO CONTINUE 

c A L L n I SR T 0 < 1. 3.' 1 6 ) 

RETURN 

50 CALL SR UN < 1 , 3, NRECD.. NFL) 

CALL WAIT < t • 0* NM ) 

00 TO tOO 
FND 


ORIGINAL 

°p pooh t 


Page 


is 
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2000 

c 

2500 


2600 


■ 3000 
C 


34 


SUBROUTINE OSEL XN) 

COMMON /I... OVD AT / 1 EL V , I ERM - T TM I NT < 7 ) , T TMEND < 2 ) , T DAY , I PLN, NUMPTS, 

1 IX n 000 ) . I Y < 1 000 > , T NTENS ( \ 000 > , I VEL < * 000 > 

COMMON /abterm/ t abtrm 

COMMON /ATLP./ | BASE. DT MY 

COMMON /CNTRI. / KPROC , TAG QTL ■ MTTRF 

COMMON /DSPL / NS1 , NS2. NS3 • NS4, LOT, KSM, KL..O, LLDT 

COMMON /TEL. DO/ TROV 

COMMON /SETUP / DATE . JDET ( 20, 6 ) , JRLTp ( 3 > , I PL T ND , I L 1 ( 60 ) , T I M < 2 ) , 
l T EL B < 3 ) • T L D V . I AHC . T L 2 < SO I , KP B< JF < 6 ) 

COMMON /YCOE'DT /CY t , KX2 . CY 3, CY4 
COMMON /TMPS/ k'DETT ( A ) . ...lAUTO 
COMMON /CEL T / CEL T 
INTEGER CELT 
BYTE CHAP ( 6 I • CD ART < 4 > 

DIMENSION N(3> 

DIMENSION kT«ATE<2> 

DIMENSION NS (4) 

D I MENS I ON NNN ( 4 ) 

EQUIVALENCE < TFLBI t > . CHAR ( t > L < k'DATE < J. ) , CD APT X 1 ) ) 

EQU I VALENCE ( DATE , k'DATE > 

EQUIVALENCE f NS 1 ■ NS< 1 U 

EQi II VALENCE ( ILO 1 j T L 2 < UM IL3, IL2<3) ), ( TL6, IL2<6) ), < IL..8, IL2(8> ) 
EQUIVALENCE f T 1.3 1 , I L.2 ( 31 ) ) , < 1 1. 33 ., 1 1.....2 < S3 ) > , < It 86, I L2 < 86 ) ) , 

1. < TL8S» 11.2(88) ) 

IE (T ABTRM FQ. 43) GO TO 975 
N2~N<2> 

N5=N(5> 

NTbb(N2+1 > /7 
ASSIGN 950 TO KST 
TE (NUI ME 1) GO TO 35 
IE (N;2 NE. 1) GO TO 36 
CD ATE < 1 ) ~N5 
CD ATE ( 2 ) =N ( 6 ) 

IF (CREDO EQ 1. ) GO TO 950 
T SDAY=0 
no 33 1 = 1, 3 

T sriAV-T SO AY* 1 0+CDABT ( I ) -4 3 
I F ( I SDAY— I DAY ) 2500, 34, 3 000 

NEED TO BACKSPACE FILE 
CONT I MUF 
NBA=2 

CALL SFUN( t , 13, NBA. NFL) 

TF(NFL) 975, 2600, 975 
CONT I MUE 
CALL VREAD 
GO TO 2000 
CONT T NIJF 

FORE WARD SPACE A FILE 
NBA= 1 

CALL SFUN < 1 , 1.0, NRA, NFL ) 

I F { NFL ) 975 , 2600 , 975 
CONTINUE 

IPLTWD«IPLN ' 

CFLI*t 
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MNN < 2 ) - 1 PL. T WD 

NNN <41=0 

CALL PTYP (NNN) 

CPLT-0 
GO TO *950 
36 CONT T NIJE 

I FLB< 1. > =N5 
IELB(2>=N<6> 

TFLB<3)=N<7> 

TP t KF'ROC EQ 1.) GO TO 950 

TGP8M=0 

00 1 . 50 1 . 1 = 1.5 

1501 I SFBN= I SFBN* 1 O+CHAR < I ) -48 
4000 T F ( 1 SFBN- I FLY 1 4500.- 6000 • 5000 
4500 CONTINUE 

c need to backspace file 

NBA=2 

CALL SFUN < 1, J 3, NBA. NFL) 

I F ( NFL ) 975 . 4600 • 975 
4600 CONTINUE 

call oread 

GO TO 4000 
5000 CONTINUE 

C NEED FOREWARD space a file 

NBA=1. 

CALL SFUN ( 1 , 10. NBA - NFL) 

IF (NFL) 975, 4600- 975 
6000 CONT T NIJE 
N2= 1 

GO TO 34 
35 CONTINUE 

C XBASE IS DTT POSITION OF BAR ORIGIN 

C D I MX IS DELTA DTT RANGE FOR ENTIRE BAR 

GO TO <40, 45, 50, 100, 150, 200, 250, 275, 300, 300, 300, 300, 300, 300, 300, 
1 300, 900. 925) , N2 
40 CONTINUE 

IE (fcPROC NE 2) GO TO 44 
CALL SELIN < 1 , 3, NBA, NBA) 

CALL SFUN < 1,4, 1 , NBA) 

CALL VREAD 
GO TO 6000 
44 CONTINUE 

IF <N5 LT. I BASE) N5=IBASE 
TACQTL = < <N5-IBASE)*300. 0)/DIMX 
IL01 = I BASE 

I L3= I BASE+ < TACQTL *D I MX /30 0 ) 

I L6* I BASE 
ILS=IL3 
GO TO 950 
45 CONT I NUE 

IF (KPROC NE 7 > GO TO 47 
CFL I «- 1 
GO TO 950 
47 CONTINUE 

T ACQTL= t OE+6 
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T LOt ='5 1.0 
I L 3=900 

T L6-9 1 0 

T I 0=900 
no TO 050 
50 CONT T NIJE 

IF (IFLDV FO. 1) TFI.no=0 
GO TO 435 
too CONTINUE 
I FLDV= t 
no to 460 
t 50 CONTINUE 

TF (IFL.DO EQ. 2> IFLDV=0 
GO TO 435 
200 CONTINUE 
7 FI I DU=2 
GO TO 460 
250 CONT 7 WIJE 
MT I RF=0 
no TO 435 . 

275 CONTINUE 
MT 7 RF— 1 . 

GO TO 460 
300 CONTINUE 
KT = 1 

IF ( i N2 FQ. 1.0) OR f M2. EO. 12) OR. ( N2 EQ. 14) . OR < N2. EQ. 16): 
1 K 1=2 

ASSIGN 300 TO NT ST 
DO 400 1 = 1.. 4 

IF (NSC 7) NE FI ) GO TO 400 
NS U ) =3 

ki=fxi 

F2 =FXt 
FT=10*T+31 
no to 7oo 

400 CONT I NIJE 

ASSIGN 950 TO k-0T 
I F ( N2— 2-^NT ) 425* 450. 450 
425 NSC NT-4 )=J. 

435 K 1 =KX 1 
K2=KX2 
no TO 475 
450 NS (NT-4) =2 
460 FI =k'X3 
k’2~KX4 

475 k'T s=NT & t 0—9 
700 T L2 C K'T ) =F 1 

1 1.2 C FT 4-2 ) =K2 
I L2 ( FT+5 ) =F 1 
T L2 ( FT +7 ) =K2 
GO TO FST. ( 300. 050) 

900 CONTINUE 
.JAUT0=2 
T L F* 1. —630 
T L 03=700 
7 1. 06=630 
I L 08=700 
GO -TO 050 


AJilGlNAL Pa Cp < 

° F QUALITY 
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97S CONTINUE 
, I AUTO— l 
I LSI -840 
TL83= 9 10 
IL8Aas®40 
T 1.88=9 1 0 
9 SO CONTTWIJE 

CALL 018810 (9j 12, KRBUF^ 
RETURN 

97S T ABTRM=0 

CALL D ISP TO (11. .1) 

CALL DTSPTO <2. 1 ■ 0> 

RETURN 

END 



SI IBRQIJT T me: CENTR'D 

C TH I SUBROUTINE PERFORMS A SEARCH TO LOCATE. THE POINTS WHICH 

c DEFINE a OORT F>: and CALCULATES the CENTROID of these points 

C CON XV = SCALE F ACTOR TO CONVERT j X AND jy T f t FEET 

c FI v AMO ‘ 1 > ELEVATION ANOLE of FIRST DATA POINT IN THIS FRAME 

C ELVANOC2) ELEVATION ANGLE OF FIRST DATA POINT IN THIS FRAME 

C TNTFNS= INTENSITY OF DATA POINT 

C I RAD I 2= SQUARE OF RADIUS FOR CORRELATION CIRCLE 

C TVFI - VELOCITY OF DATA POINT 

c TV ~ X COORDINATE OF DATA POINT 

c JY SS V COORD I NATE OF DATA POINT 

C COUNT = NUMBER OF POINTS WHICH LIE IN CORRELATION CIRCLE 

c ! SFARC- MAXIMUM NUMBER OF SEARCHES ALLOWED FOR VORTEX LOCATION 

C MAXI = INDEX OF MAXIMUM VELOCITY T.N A FRAME 

C MAX 2 = INDEX OF SECOND HIGHEST VELOCITY IN A FRAME 

C MTNCNTss NUMBER OF POINTS IN CORRELATION CIRCLE POSSING A PEAK VELOCITY 

C EQUAL TO OR GRFATFR THAN MTNVFL 

c MTNVFL- IT0L2*PEAK VELOCITY 

C NO T SES= NOISE SPIFFS THAT WERE DISCARDED IN PROCESSING DATA FOR A 

C SPECIFIC VORTEX - ARRAY OF 2 

c NSEARC- number of SEARCHES THAT HAVE BEEN MADE IN AN ATTEMPT TO 

C locate A vortex 

c NSPTKF- NOISE SPICES that are found in a frame 

c NIJMF'TS— ■ NUMBER OF data POINTS IN A FRAME 

C NVORTX= NUMBER OF VORTICES THAT HAVE BEEN LOCATED IE NVORTX + 1 

C IS THE VORTEX NO THAT IS CURRENTLY BEING PROCESSED . 

C PTTOL = PER CENT QE POINTS IN A CORRELATION AREA THAT MUST HAVE A 

C VELOCITY GT VELTO L-^REAC VELOCITY 

C SUM 1 = SUM OF PRODUCTS OF INTENSITY AND VELOCITY OF ALL POINTS 


r: IN THE CORRELATION CIRCLE 

C SUM 2— SUM OF THE PRODUCTS OF INTENSITY, VELOCITY, AND. X COORDINATE 

C OF ALL POINTS IN THE CORRELATION CIRCLE 

C SI IMS- SUM OF THE PRODUCTS OF INTENSITY, VELOCITY, AND Y COORDINATE 


C OF ALL POINTS IN THE CORRELATION CIRCLE 

f: VEI MN2* MINIMUM ACCEPTABLE PEAK VELOCITY 

C VEI.. T OL — ■ VELOCITY TOLERANCE — PER CENT OP PEAK VELOCITY THAT SOME 

D PER CENT OF POINTS IN A CORRELATION AREA MUST POSSESS 

C VO»TOL» PER CENT OF PEAK VEL FROM t ST VORTEX THAT PEAK VEL. FROM 

2ND VORTEX MUST MEET 
C XCG ■* X CENTROID OF VORTEX 

C YCG =s Y CENTROID OF VORTEX 

COMMON X CO I 2 1 . Y CG < 2 > • I NDE X < 250 ) .> NCORPT ( 7. > * NO T SES ( 2 ) > 

1 PK VEL < 2 ) , EL ANG 1 , EL ANG2 . MVORT X , KFRM . RT I ME. 

COMMON /CNTRL/ KPROC * TADQTL • MTIRF 

COMMON /DSRL/ NSt • NS2. NS3 • NS4, LDT, KSM, KLB, LLDT 

COMMON/ T DUMMY /NBA* NFL 

COMMON / T HDL I / MA X 1 , M A X 2 . I EOF I 

COMMON/ T N t TL / I TPL.T , PORT S < 2 ) , ST ARBS < 2 > , VELMNF 

rnMMON/TNPT/ PTTOL, NQTSE, VELTOL, VORTOL, TRAD I, IRADI2, NRADI, 

1 conxy, ST I ME, FRVTOL 

common / ktflg /ktflg 

COMMON /LDVDAT/IFLY, TERM, ITMINT<2>, I TMFND ( 2 ) , T DAY . IPLN, NUMRTS, 

1 t V ( 1 000 > , !YU 000 ) , I NTFNS < 1 000 > , I VEL { - 1 000 ) 

COMMON /ROUT/ ROUT, KOBE 

COMMON /SETIJP / DATE ■ . JDFT < 20 , A ) • .JPLTP ( S > , I PL I NO, I L 1 < AO ) , T I M ( 2 ) , 
t T F| . B < 3 ) > I LDV . I AHC, I L 2 < 90 ) , KRBLIF < A ) 


i 
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428 

429 
C 


5000 

5010 

1 

■~y 

9 

5020 

10 
C 


COMMON /ABTERM/ T APT RM 

COMMON /ST AT / TOTX 1 , TOTY 2 , TOTY 1 .. T0TY2 • SSOX 1 , SSQX2, SSOY 1 > SSQY2 f 
1 . k'VAN 1 . , LVAM 2 
T MTEOER CpHEOT < 6 ) 

T MTFGEE MET AT ( 1 A 1 
REAL STTT ( S ) 

FPU T VALENCE < XCG 1 . XCG < 1 ) ) , ( YCOt * YCG < t ) ) 

ECU I VALENCE ( MST AT . STTT ) 

ECU T VALFWCE (MSTAT4. MSTAT ( 4) ) , (MSTAT7, MSTAT ( 7 ) ) . ( MST A 1. 3 , MSTAT < 1 
ECU 7 VALENCE ( MST A 1. 5, MSTAT < 1.5) ) 

ECU 7 VALENCE < KBMET /> . KBJJFO T < A. ) ) 

EQl.t I VALENCE ( WTEST . . JPLTP ) 

OAT A SNAME/ "CENT'/ 

DATA LBUFOT / 4 * 1 , 32 . 0 / 

OAT A STTT /' A VO " , = ( ", " , ", " - ) S'" ■ TD= < " .■ y 

1 •- 7 ■" / 

DATA WHEEL /'WHEE-"/ 

OAT A LNOTSE/ 5 / 

ROUT- SNAME 

TMTNT- 32768 0 * I TM T NT <17 + ITMINT< 2 ) 

l f ( LTFLO ) 428 , 428 , 429 

CONT T Ml IE 

ST T ME”-TM T NT 

LTFLO= 1 

CONTINUE 

WSP 1 KE «0 

INITIALIZE NO I SF < 1. ) FOR COMPUTATION OE NOISE FOR EA. VORTEX 

NO T SES < .1 )=0 

NVORTV -.0 

MTNPTS=='2 

calculate maximum and minimum elation angles 

X = X X ( 1. ) 


Y=T Y ( 1 7 

ELANG1. - AT AN9 ( Y . x > *57 2958 

V = T x ( NUMPTS 7 

Y-IY(NUMPTS> 

ELANG2 = ATAN2< Y, X 7*57 2958 
T E < NUMPTS- 1 >5000 . 5000, 501 0 
CONTINUE 

NCORPT < 1 7 -NUMPTS 


CALL GETVFL < 1 VFL < 1. > , VELMA X 7 
GO TO 5020 
CONT T NUE 

GO TO < 1 , 2000 > > KPROC 

CALL GETVFL ( I VEl... < MAX 1 7 , VF L.MAX ) 

CONT T Ml. IF 

T F ( VFLMAX— VELMNE 7 9, tO, 10 

CONT T NUE 

NCORPTC 1 )= 0 

CONTINUE 

NCORPT < 2)- 0 

L L V E ( < ^ j — \>i^ i... rW X 

GO TO 2500 


CONT I NUE 

INITIALIZE SUM TERMS AND COUNTER'S 
SUM 1 =0 0 
SUM 2=0 0 
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toot 


YCO * NVQRTX t -CONX Y*DUM2 

(MO I SFS ( IMVORT X > = NSP T KE - WO I SES < 1 ) 

WCORPT ( MVORT X ) a fc'OUWT 
WEI. mnf=frvtol*velmax 
PLVFL < NVORTX ) - VELMA X 
T E v N VORT V - 2 > 4 25 .> 2500 . 2500 
CONTINUE 
COMPUTE TIME 

TMEWD= 3276ft 0*ITMENDU> + TTMEND< 2 ) 
AN0LE=ATAN2 < YCO < t XCG< l > > *57. 2958 
COMPUTE RTIME FOP START OF THIS SCAN 
RT T ME— 01 666666-^ < TM I NT - ST I ME) 

DT T ME = 01. 666666-* < TMEMD - TMIWT) 

CHE CL EOF VAT l ON ANGLES FOR DIRECTION OF SCAN 

TF(ELANG2-ELANG1 ) 430. 460.. 440 

CONTINUE 

SCANNING DOWN SWAP ANGLES 
NpA::-FlAMG1. 

ELANG 1. -ELAN02 
ELANG2-WBA 


TF < ANGLE-EL ANG2 ) 435. 435, 460 

CONTINUE 

x F < ANGLE - ELANG 1 > 500.. 500 • 438 
CO NT T Nl IF 

PT T MF= PT T MF* < ELANG 2 - AN OLE ) f ( ELANG2 
GO TO 500 
CONTINUE 
SCANNING up 

T E i ANGLE-EL. ANG 1 ) 500 , 4 45, 4 45 

continue 

if < angle - ELANG? > 450, 460 , 460 

CONT I NIJF 

PT I mf=DT I MF* ( ANGLE - EL AN G 1. ) / < EL ANG2 
CONT T NUE 

RTIME - RT IMF + DTI ME 


EL ANG 1. t 


FI.ANG 1 ) 


CONT T NUE 

SET FLAG TO INDICATE THAT WE ARE LOOKING FOR 2ND VORTX 

SET VELOCITIES NEGATIVE THAT CORRESPOND TO POINTS THAT WERE USED 

TO DEFINE t. ST VORTEX 

I E ( k'OUNT-2 ) 530 , 530 , 525 

CONT T NUE 

M I NPTS=VORT0L*KOIJNT 
CONT I NUE 

nba-numpt s— kount 

I e < NBA— M I NETS > 2280 , 540 , 54 0 
CONTINUE 

DO 550 L-t.KOHNT 
J— INDEX < L ) 

T VEL. < .J ) — — TVEL <...«) 

CONT I NUE 
GO TO 2000 

TRY ANOTHER PT WTTH A MAX VELOCITY 
CONTINUE 

NSRIKE-NSF'TLF + t 

I F ( NIJMPTS-2 ) 2280 , 2280, 1001 

CONTINUE 

T F ( | NO T SF— NSP I KE > 2300, 2300, 1 0 1 0 


- 230 - 



-KZ- 


X W ISA a ( 1SN ) 13A;id 
INf tO^ = ( 1BN > J_daOON 
< l > SB S I ON - 3,'H i dSN= ( ' "IBM ) SBS I ON 

0 " < 1SN ) OJA 
OaCldNJOOX 
l *• X±dUAN=13N 
ariNiiNuo 
o»xnho>i 


BUN UNDO 
O-Xyw IBA 

bun 1 ±Nu 3 
01 'Z *Z\ XJ.dOAN)SI 
BUN i lNOO 
000 £ Oi 00 
t 1 X y W > IB A I -= ( i X <7W ) IB A I 
BUNlXNOJ 

BUZZ 'OBZZ ' 0 BZZ { NWOy.B- ( l wUO ) IBOS ) Si 

i ays i *bs i ON=NNay.s 
£woa*£wi iu + 1 wua* i wno= i wna 
uja I - 1 i xy w > a i aguina 

00X1“ ( 1 XtfW ) X I = l WHO 
SUN 1 ±NUO 

OZZ Z " OZ'ZZ ‘ BUZZ- < 1 - X jLdO AN ) s i 

BUN i iiMijj 

Oy££ ’ 08££ ‘ 08Z.S (. xywlBA ) s 1 

( xy wi ba *' ( i xyui ) iba i > ibaxbo iivo 

BUN 1 lNOJ 

i=sxyw 
00££ 01 00 
i=i xyw 
1 xyw-£xyw 

BUN i ±nuJ 

0£ 1 Z 'OS XZ *0v X Z < ( 1 > IB A i - < 1 x y W ) IBA i .» s i 

. Bt IN i -LNG3 

OOZZ ‘00 ZZ ’ OS X Z ( < I > 13A l - ( ZXUbl ) IBA i ) si 

sidwi iN ■ s=i oozz oa 

BUN i -LfMOO 

t=£xyw 
x xyw 

BUN 1 ±N03 

oo i z ‘ 00 x z ‘0Q0£ ( ( sxyw ) iba i “ ( x xyw > iba i > s i 


S=1 
s=£xyw 
l=i xyw 

HOsyBs xBidOA bus ywixyw nbn on is 

sun 1 lNuu 

0 1 1 Z ‘ Z l X ISO AN ) s I 

BUNilNU J 

ovo i ■ obzz ■ oszz ( x ywiSA > s i 
i xywi sa ■ 1 1 xyw > ibai > ibaibo iiyo 

Si in i 1NUU 

oso t 1 0002 ‘ oooz. 1 1 x y w ? s i 
o =sxyw 
sxyw = ixyw 

< l Xy W ) IB A 1“ = ( 1 XtfUl ) ISA 1 
BUN i 1N00 


00 S £ 
Ozzz 
0 S££ 
BUZZ 

o&zz 

ozzz 
Ola ZZ 

oozz 

Ola 1 £ 

Oi 7 i z 

OS 1 z 

00 1 £ 
Ola OS 

0 

0002 
090 1 

OSO l 
0101 



2500 CONTINUE 

3 100 IF fMTEST WE WHEEL) 60 TO 3600 
I E ( NO OF TV ) 3600 • 3600 , 2700 
2700 CONTINUE 

3 110 T F ( I Fft M > 31. 25 , 3600 , 3 1 50 
3 1 25 T E ( KOAN2-30 ) 3 1 30 , 3225, 360 0 
31.30 CONTINUE 

K0AN2=KVAN2 + 1 
TOTX2=T0TX2 + X CO ! 

T 0 T V 2 = T OT Y 2+ YCG 1 
SSO X 2=330 X 2+ X CO t *XCG t 
3 3Q V 2 = 3 SO V 2+ V CO t *YCG 1 
60 TO 3600 ' 

3 150 T E ( K V AN 1. "30 ) 3 1 55, 3250, 360 O 
3155 • CONTINUE 

KOANt =KOANl 4- I 
TOT XI = TOT Yl + XC61 
TOT Y 1 =TOTY 1 +VC6 1 
ssox i -ssQ y t + x co t*x eo t 
SSQY 1. =33 ov 1 4-YCG 1. *YCG 1 
GO TO 3600 
3225 AO X CG=T OT X 2 
AVYCG-T0TY2 
3TDX =330X2 
3 TOY" 33 0 Y 2 
KBUFOT < 3 ) =5 1. 7 
GO TO 3275 
3250 AVXCG-TOTX \ 

AVYCG—TOTY 1 
STDX=SSQY 1 
STrtY=SSOY 1. 

KEUEOT i 3 ) =5 

3275 CALL SET AD < KBIJFT 6, H3T AT ) 

KEUEOT ( 1. ) =NS3 

KEUEOT < 4 ) =LDT-LLDT*KFRM 

L AO X CG= AO X C6 /30 0 

L A O Y rr G= A 0 Y C G / 3 0 0 ■ 

KSTDX =SORT < < 30 0*STGX-AVX C6*AVXCG ) /870 0 > 
K3T0Y=S0ET < (SO 0*ST0Y-AOYCG*AVYCG> /870 0) 
CALL. OECD (LAOXCG, 5, MSTAT4) 

CALL OECD (LAVYCG, 5, MSTAT7) 

CALL OECD (K3TDX, 3, M3TA13 ) 

CALL DECO ( K3T0Y , 3 , MET A 1 5 ) 

CAL L D l SP 1 0 < 4 , 1 , 2. KEUEOT ) 

GO TO 3700 
3600 CONT I NUE 

CALL DISF'LA 
3700 RETURN 
END 
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SUBftOI JT T ME RTV < N ) 

COMMON] /ATI. P / T BASE . D T M X 
COMMOM/FI.IFFR/ 1 BEE (12) 

COMMON /CNTRL./ KF'ROC, T ACOTL , MTIRF 

COMMON /OSPL./ MSI , NS2, NS3 , NS 4 , LOT, KSM. KLG, LLDT 

COMMON /SETUP / HATE ■ UDET < 20- 3 ) , .JPLTP ( 3 ) , T PL I NO, I L 1 ( 30 ) , T T M < 2 > , 

I. T FLB ( 3 ) , T LOV , I AHC , \ L2 ( 90 > , KRBIJF < 6 > 

COMMON/ T READ / I READ 

COMMON/ 1 DUMMY /NBA, NPL 

COMMON /LDYDAT/ TFLY. TERM. ITMINT<2>, I TMEND < 2 > , I DAY . IPL.N. NUMPTS, 

1 T X ( l 000 > , I Y ( l OOO > , I NTENS < 1 000 ) . T VEL < 1. 000 > 

COMMON /OFLT/ CELT 

integer CELT 
DIMENSION N<3> 

DIMENSION NNNC4) 

EOI I T VALENCE ( T BPR4.1 I BER < 4 ) ) , < I BERIO, I BEE ( 10) ) 

EQUIVALENCE f 11.01- It 2 < 1 ) ) , ( 113. IL2<3) > .. ( IL3, I L.2 < 3 ) >, ( ILS, IL2(8) ) 
EQUIVALENCE ( IL3J . , IL2< 31 ) > , < IL33- I L2 < 33 > ) > < TL33, IL2<36-) ) , 
t ( 1 1 .38 , I 1 2 ( 33 > ) 

EQUIVALENCE < U..42- I L? < 42 > >, <IL..44, 11.2(44)), < IL.47, 11.2(47) >, 

1. ( n.49, I L.2 ( 49 > > , < TL52, I L2 ( 52 ) ) , < 11.54, IL.2 ( 54 > > , (1 1.^7, I L2 < 57 ) ) , 

2 < 1 1.5 9 , I L 2 ( 59 ) ), i 1 132 , I L.2 < 32 ) ) , < I LG4 , I L2 ( 34 ) > , (I L37 , I L.2 ( 37 ) ) , 

3 ( XL 39. TL2 ( 39 >') , ( H..72, TL2 (72) ), < IL.74, IL2(74) > , ( IL77.. IL2(77) ) , 

4 ( XL 79, IL2<79) ) 

OAT A 7ND /O/ 

DATA KM t /— 1 / 

CALL D I SP 1 0 < 1.3, 32) 

N2«N ( 2 ) 

IF <N2 OE. 3) 00 TO 400 

H 42-275 

1 1.44.-275 

II 47-233 

XL 49=238 

XL 52=231 

T 1.54=23 1 

XL 57= 224 

XL 59=224 

11.32= 137 

T 1.34= 1 37 

1137=190 

II 39=1 30 

11.72=1.43 

IL.74= 1 43 

XL 77= 133 

TL79=1.33 

KPROC- 1. 

NS4=3 

TE (TACOTL . NE 1 OE+6) 00 TO 100 
TLOt —91 0 
X L 3=980 
XL 3=9 10 
I L 8=930 
00 TO 200 
1 00 CONT I NUE 

I I. 0 1 = 1 BASE 

I L 3= I BASE + < TACQTL*DTMX/300 ) 
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IL 6 =I 8 ASE 
I T L3 
200 CONTINUE 
KT=3 

7 F V'MTTRF EG. 1) GO TO 000 
7 L3 1. -5 AO 
T 1.33- TOO 
I io a = 5 AO 
I L 38*700 
GO TO 500 
000 CONTINUE 
I L3 1*770 
I L 33*9 10 
T i .06*770 
I L 38*9 10 
GO TQ 500 
400 CONTINUE 
T BFR4-6 1 3 
Il-iFRl 0=57 1 

IF < I NO FO t> GO TO 410 
I ND= t 

CALL. OPEN < 1 , 1. ) 

NBA- 1. 

CALL. OF UN (1,4, NBA, NFL > 

410 CONTINUE 
MTTRF"! 

KPR0C=2 

T F ( I READ) 425 .* 420, 425 
420 CONT I NUF 
TREAD-l 
CALL OREAD 
I PL I ND= I RL.N 
CEL T * 1. 

MNN ( 2 ) * I PL. I NO 

NNN { 4 ) =0 

CALL PTVP (NNN> 

CFL T =0 

425 CONTINUE 
1 10 1 =400 
11.3=400 
TL 6=400 

I I E! =4 00 

I I 3 1 =400 
11.33=400 
1 1.36=400 
U .30=400 
XL 42 =3 13 
1 1.44=31 9 
I L 47=3 12 
I ( 49=3 1. 2 
11.52=275 
T j p,4=275 
IL57=263 
I L 59 =2 60 
XL 62=231. 

XL 64=23 1. 
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T 1.67=224 
I L 69=22 A 
T 1.72= 187 
I (.74=: t87 
I L 77 ~ 1 SO 
I L.79=: 180 
KT=t 0 

500 CONTINUE 

CALL 0 T SP IOC 1.3.. 64) 

CALL OTSPTO <4,24, I BEE) 
X15FR4-A57 
I RPR 1 0=61 5 

CAL L O T SP TO ( 2 , KT , KM 1 ) 
CAL L. 0 1 SP TO ( 9 • 1 2 , KRBUE ) 
RETURN 
END 
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SI IT*: ROUT T ME D T SF’L A 

TDITTBCI. ) = INITIAL X DIT POS FOP TABLE FOR VAN! DATA 

T OT TTB ( 2 > = INITIAL X DIT POS FOR TABLE FOR V AN2 DATA 

IVDITM ) « INITIAL Y DIT POS FOR XV PLOT FOR VAN l DATA 

T VD T T < '? ) = INITIAL Y DIT POS FOR XY PLOT FOR VAN2 DATA 

I D I TY < 1 > * INITIAL V DIT POS FOR Y-TIME PLOTS FOR VAN1 DATA 

IDTTYf?) = INITIAL Y DIT POS FOR Y-TJME PLOTS FOR VAN2 DATA 

TDITTX(t) = INITIAL TIME DIT POS FOR TIME-X PLOTS FROM VAN! DAT 

I D I TTX ( 2 ) - INITIAL TIME DIT POS FOR T7ME-X PLOTS FROM VAN2 DAT 

I RUN XV s DIT POS FOR CENTER OF RUNWAY FOR XY PLOTS 

T RUN XT " DTT POS FOR CENTER OF RUNWAY FOR XT PLOTS 

IDITTM = DTT POS FOR INITIAL TIME POS FOR Y-TIME PLOTS 
I OrVAN f 1 > =LOCAT ION OF VAN 1 WRT CENTER OF RUNWAY 
L GCVAM ( 2 ) — LOCAT T ON OF VAN 2 WRT CENTER OF RUNWAY 
NSt SCREEN F1...AG FOR XV PLOTS 

MS2 SCREEN FLAG FOR TIME PLOTS 

N33 SCREEN FLAG FOR TABLE 

Y RAT XV S RATIO FOR X DIT POS FOR XV PLOTS 

YRATXY * RATIO FOR Y DIT POS FOR XV PLOTS 

XRATXT = RATIO FOR X DIT POS FOR X-TIMF PLOTS 

XRATXT = RATIO FOR TIMF DIT POS FOR X-TTMF PLOTS 

YRATYT - RATIO FOR V DIT POS FOR Y-TIME PLOTS 

TRATYT = RATIO FOR TTMF DIT POS FOR Y-TIME PLOTS 

COMMON/ 1 M I TL f I TPL.T , PORT S < 2 1 , ST ARBS ( 2 ) , VEL.MNF 
COMMON /DSPL / NS1. . NS?. NS3 , NS4, LOT, KSM. KL&> LLDT 

COMMON /LOVDAT/IFLV, TFRM. ITMINT<2>. ITME ND(2)i I DAY, IPLN, NUMPTS, 

1 I X < t OOO 1 , 7 Y < 1 . 000 ) , I NTENS < 1 000 ) , I V£L < 1 000 ) 

COMMON/ I ADDRS / I ADDX Y ( 26 > . I ADPTS ( 2 ) > I Cf ATA ( 66 ) , I ADDAT , BLANK ■ 

1 IAPJ NK 

COMMON X CCS < 2 ) • Y OG (2 ) > I NDFX < 250 ) , NCORPT < 2 ) , NO T SES (2) > 

1 PKVFL < 2 ) > ELVANGX 2 ) , NVORTX , KFRM, RTIME 

COMMON /ROUT / ROUT.KGBF 

DIMENSION IDTTTB<2>, TYDIT<2>, TDITY<2)» 7DITTX < 2 ) , LOCVAN ( 2 ) 

D I MENS T ON T BBUFF f 24 > , PORTS < 2 ) , ST ARBS < 2 ) 

INTEGER BLANK 

BYTE T DATA, DEC I ML, KUUK, NEC 
DATA DEC I Ml./' ' ■'/ 

DATA NECS / 

DATA LOCVAN/ 400. 400/ 

DATA I BBUFF ( 2) , 7 BBUFF < 3 ) / 1 , 0 / 

DATA DSPM/ DATA ' / 

DATA SNAME / ■' D I SP •' / 

REMOVE AETFR TEST ■*■***■* 

HAT A TRUNXV/ 518/ 

DATA YRATXY/ 7/ 

DATA YRATXY/ 88/ 

DATA I YD IT/459, 85/ 

DATA IDT TTB/ O, 512/ 

OATA TDITY/459. 63/ 

OATA I D I TTX n 1 2 , 3 1. 6 / 

OATA I RIJNX T /784 / 

OATA T D I TTM/70/ 

OATA XRATXT/ 42/ 

OATA TRATVT/3 1625/ 

OATA YRATYT/ 88/ 

OATA TRATYT /4 2/ 
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0 REMOVE #**#*****#*#***##■*#■«■•*■«■■*•#•■* 

ROUT = SNAME 
TTPLT=KFRM 

IE < KFE'M LT. 26 >GO TO 1.0 
I T Pt„ T ~ T T PL T /26 
TTPLT®KFfRM - 26 *' TTPL..T + 1 
10 CONTINUE 

M I WANG = EL V A NO ( 1 ) 

MAX ANG=*EL VANG < 2 > 

C ORDER ANGLES 

TFi'MAVANO GE. M TWANG) GO TO 20 
I ITiMM-M T NANG 
M T NANG=MAX ANG 
MAXANO=IDUM 
20 CONTINUE 

TFINVQRTX GT 0) GO TO 100 
C NO VORTEX FOUND 

T XCt =0 
I XC2=0 
LVC 1=0 
I YC2— 0 

LVEL-PKVEL < 1 1 
I RVEL-0 
IVAN^l 

IFdFRM LT O > I VAN-2 
GO TCi 1. 000 
100 CONTINUE 

0 TRANSFORM TO CENTER of RUNWAY COORDINATE SYS 

IE (TERM GT 0) GO TO t 50 
c DATA RED from VAN2 

I VAN-2 

I X C 1. « LOCVAN ( I VAN ) - XCG< 1 ) 

TXC2« LOCVAN (IVAN) - X CG ( 2 > 

' ' GO TO 175 

150 CONTINUE 

C DATA REC FROM VANt 

I VAN- 1 

IXC1= XCG(l) - LOCVAN (IVAN) 

IXC2- X CG ( 2 > - LOCVAN (IVAN) 

175 IF ( NVORTY FO 2) GO TO 200 

I F ( IVAN EQ 1) GO TO ISO 
f: ONLY ONE VORTEX WAS FOUND 

I F ( ( PORTS! I VAN ) - X CG ( 1) ) . LE ( XCG < 1 ) -STARRS ( I VAN ) ) ) GO TO 300 
GO TO 210 
ISO CONTINUE 

I F ( ( PORTS! T VAN) - XCG < 1 > > LE. < XCG < 1 ) -ST ARBS ( I VAN ) ) ) GO TO 210 
GO TO 300 

C DATA WILL PE ORDERED SO THAT LEFT VORTEX WILL BE IN LOG 1 

200 CONT I NUF 

IF! IXC1 LE I XC2 ) GO TO 300 
C VORTICES IN REV. PCS. SO SWITCH 

2 t 0 CONT I NUF 

TDUM=IXC! 

I X C t ~ I X C2 
I >; r:2= I OUM 
I YC 1. -YCG < 2 ) 

IYC2=YCG< 1 ) 
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Lv/EL=Ptf VEL < 2 > 

TRVEL^P^VHL < t ) 

TDUM-NOTSES< 1 > 

NO T SES ( 1 > =NO T SES < 2 > 

NOISES* 21-IDUN 
T DUM=NCORRT < 1. > 

NCORPT ( 1 ) —NCORPT < 2 ) 

NCORPT ( 2 > = T DUM 

dum»xco< i > 

y CO < 1. >-XCG\ 2) 

XCG < 2 > —DUN 
pMM^YCG < 1. > 

YOG ( 1 > -YCG < 2 ) 

YCG ( 2 > -DON 

00 TO i. OOO 
300 CONTINUE 

I YC 1. -YCG < \ ) 

IYC2=YCG<2> 

LVEL*=PKVEL < 1 ) 

IRUEL-PKVEL < 2) 

c CALCULATE DISTANCE FROM the center of the runway 
1 000 CONT I NUE 

C DATA IS NOW IN CORRECT LOCATIONS 

7 F ( NS 3. EQ. 3) 00 TO 1500 
c TABLE WAS chosen as a display option 

1 DUM- Ot*KFRM 

T DUN 1 »KFRM- 1 00* T DUM 
TDUM- t*ioum ■ 

I DATA ( 1 >=IDUM+4S 
I DATA <2 ) « I DUN 1 - 1 O* I DUM+48 
T DIJMsb 00 1 *NUMPTS 
I pAT A < 4 > - 1 DUN + 48 
7 DUN 1 — NUMPTS - 1 000* 7 DUN 
I DUM— 01*1 DUN! 

T OAT A < D > =- I DUN + 48 
T DUN 1. = T DUN 1 - 100* I DUN 
I DUN- 1*7 DUM t 
I DATA ( 6) = TDUM+ 43 
I DAT A ( 7 1 =s 7 DUN 1 - 10* 7 DUN + 48 
7 DUM= 0 1 *NCORpT ( \ ) 

7 DATA f 3>- I DUN * 48 
1 DUM 1 * NCORPT ( 1 ) - 1 00* T D UN 
7 DUM= . 1*1 DUN 1 
I DATA ( 10) -I DUM + 48 
I DAT A f 1 1 ) =s I DUN t - 10* I DUN + 48 
7 DUM= o 1 *NCORPT < 2 ) 

I DATA < 1.31 = 1 DUM * 48 

IPUM1 = NCORPT < 2) - 100*1 DUM 

T DUM as 1*7 DUN 1 

I DATA ( t 4 ) = I DUN + 48 

I DAT A ( 1 5 ) ~ 7 DUN t - 10*7 DUN + 48 

I DUN- 1*N0TSES(!) 

7 DATA ( 1 8 > = 7 DUN + 4ft 

T DAT A ( 18)= NOISES* 1> - 10*1 DUN + 48 
TDUM= 1 *N0 I SES ( 2 ) 

T DATA (211-1 DUN + 48 

T DATA ( 22 > = NOISES ( 2 > - 10*7 DUN + 48 
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IDUM* 1 *M I NANG 

I DATA (25)* IDUM + 48 

I DATA ( 26 ) * MI WANG - 10* IDUM 4 48 

IDUM- 1 *M A V ANO 

TDATA(28)*T0UM 4 48 

I DATA < 2‘ r ' ) = HAVANA - 10* IDUM + 48 

IDUM* 0t*LVFL 

I DATA (32 >*1001*1 4 48 

IDUM1* LV£L - 100* IDUM 

T DUM= l * I OUM 1 

I DATA (33) “IDUM + 43 

j HAT A ( 34 ) = T HUM 1 - 10* IDUM + 48 

j DUM» O t * T ROE!... 

I DATA <3^)“ IDUM + 43 
I DUM 1 a I R OFL - 1 00* T OUM 
IDUM* t * I DUM 1 
ID A T A (37 ) * I DUM + 4 8 
l DATA < 38)* I DUM 1 - 10* I DUM + 43 
KT IMPORT! ME 
IDUM* 01*KTTME 
I DATA ( 40)= I DIJM * 48 
I DUM 1 *KT I ME— j 00* I DUM 
IDUM*. 1 * T DUM 1 
I DATA f 41 > = I DUM 4 48 
I HATA ( 42) * IDUM 1 - 10* I DUM + 48 
I DATA <481=00:: I ML 

'ioum=rtime 

TDUM- RTJME* 10 0 - 10* I DUM 
I DATA <441* I DUM * 48 
IE <1X0.1 GE. 0> GO TO 1200. 

KDUM* T ADS <1X01) 

I DATA < 4 A ) =NEG 
GO TO t 250 
1200 CONTINUE 
KDUM- T X C 1 
I DATA < 48 ) = BLANK 
1250 CONTINUE 

IDUM* 0t*KDUM 

I DATA <47)= IDUM 4 48 

1 DUM 1 * KDUM - 100* I DUM 

IDUM* 1*1 DUM 1 

I DATA < 48 ) * IDUM + 48 

T pATA < 48 ) = I0UM1 - 1.0* I OUM + 48 

IDUM* 01*IVC1. 

T DATA < 5 1 ) * IDUM 4 48 

IDUMt* I VCl - 1.00* I DUM 

IDUM* 1*IDUM1 

1 DATA <521= I DI JM 4 48 

I DATA < 53)® IDUM1 - t 0*1 DUM + 48 

IF < I XC2. GE. O) GO TO 1260 

KDUM* I ABS ( T XC2 ) 

I DATA < 56 ) *NEG 
GO TO 1220 
1260 CONTINUE 
KDUM»IXC2 
I DATA < 56 l *BL ANK 
1220 CONTINUE 

I OUM* 0 1 *KDUM 
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I0ATA<57)= I BUM ■+■ 40 
inUMi” KDUM - 100*IDUM 
iniJM= t*T0UM1. 

T DATA ( 58 ) ” T DUM + 40 
1 DATA (59)= I DU Mi. - 1.0* I BUM + 48 
0t*TVC2 

T DATA (At ) = I BUM + 40 
TDUM1. - TYC2 - 1.00* I DUM 
T DUM= 1*1 DUM t 
T DAT A ( 62 ) = T DUM + 48 
I DATA ( A3 ) = TDUMt - 10* I BUM + 48 
TFCMVnRTV 00 2 ) GO TO 1.450 
TF(MVOFfTX EO 1 > GO TO 1.300 
I DATA ( 1. 3 > =BL ANK 
I DATA ( 1 4 > = PLANK' 

I DATA ( 1.5)= BLANK 
T DATA (21. ) = BLANK 
T DAT A < 22 ) ~ BLANK 
T DATA < 36 > = BLANK 
l DATA < 37 ) = BLANK 
I DAT A ( 38 ) =BL ANK 
DO 1280 J=40j 49 
T DATA ( J ) = BLANK 
1280 CONTINUE 

DO 1285 0=5 1,59 
I DATA ( J > « BLANK 
t 285 CONT I NUB 

X DATA <81 )=BLANK 
x DATA ( A 2 ) = BLANK 
I DAT A ( A 3 > ssBL. ANK 
GO TO 1450 
1300 CONTINUE 

I F ( X CG < 1 ) FO. 0) GO TO 1350 
I DATA ( 5 A ) » BLANK 
T DAT A ( 57 ) st BLANK 
I DAT A ( 58 ) = BLANK 
I DATA < 59 > =BL.ANK 
T DATA (61 )= BLANK 
T DATA ( 62 ) =BL ANK 
T DATA < 63 ) = BLANK- 
GO TO 1. 450 
1350 CONTINUE 

1 DATA < 46 > = BLANK 
T DATA < 47 ) = BLANK 
I DAT A ( 40 ) =BL ANK 
I DATA ( 49 ) = BLANK 
X DATA ( 5 1 > =BLANK 
I DAT A < 52 ) =BL ANK 
I DATA < 53 ) = BLANK 
GO TO 1. 450 
1450 CONTINUE 

TBBUFF ( 1 )=N33 
I BBUFF ( 3 ) ss I D I TTB < T VAN ) 

X BBUFF < 4 ) =LDT-.LLDT*KFR’M 
IF ( KFRM GT 55) TBBUFF ( 4 ) =LDT-LLDT* ( KFRM-55 > 
IF ( KFRM GT . 110)1 BBUFF ( 4 ) =L DT-L L OT * < KFRM— 55 > 
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T BBUFF < 5 ) =63 

T BBUFF * 6 ) = 7 ADD AT 

CALL 0 T SR T 0 (4, 1 7 . T ft ft I ..IFF ) 

! c iOO CONTINUE 

7E * NVORTX FP 0> 00 TO 4000 
TP I NS 1 FO 3* > GO TO 7000 

C y v PLOTS UIFRE CHOSEN AS A DISPLAY OPTION 

T BBUFF ( 1 )~NS1 
I BB! IFF * 5 1 « 1 
T BBUFF * 7 1 -MS 1 
l BBMPF * S 1 3= T BBUFF ( 7 \ 

T BBUFF ( 1 1 ) = 1 

IF,' YOG * t 1 FO. O 01 GO TO t 700 
C THERE IS A PORT VORTEX TO BE PLOTTED 

T BBUFF * 3 ) = TRIJNXV + IXC1*XRATXY 
I BBUFF f 4 ) sb T YD I T t T VAN 1 + YCG M > *YRATXY . 

I BBI IFF * A 1 as I ADR X V * I TPL T ) 

GO TO 1 SCO 
1 700 COMT I NUE 

0 THERE IS NO PORT VORTEX 

T BBUFF* 6 ) =TABLNL 
1300 CONTINUE 

T F * Y CO * 2 ) EO O 0) 00 TO t 900 
C THERE IS a STARBOARD VORTEX 

TRRI IFF* S) = TR|INXY + 7 Y C2** X RAT X Y 
T BBUFF * 1 o > = I YD I T < T VAN > + VCO < 2 ) #YRAT V Y 
T RBI IFF * 1 2 ) = T ADD X Y * I TPI. .T 1 

00 TO 1950 
1900 CONTINUE 

C THERE IS NO STARBOARD VORTFY 

1 BBUFF < 1 7 ) = I ABI. NL 
1 950 CONT I NUE 

CAL. L D I SR 10*4,24. I BBUFF 1 
7000 CONT I NUE 

I F < NS 2 FP 3 1 00 TO 4000 

C Y— TIME AND Y-TTMF PLOTS WERE CHOSEN AS A DISPLAY OPTION 

!F*ETTME. OE 81. 1 GO TO 4000 

7 BBUFF* 1 ) 5 = NS2 
I BBUFF (7)= NS2 
I BBUFF < l 3 1 =NS2 
I BBUFF * 1 9 7 =NS2 
I BBUFF * 5 ) s 1 
T BRl.lFF* 1. 1) - t 
I BBUFF * 17)- t 
T BBUFF* 23 >= 1 

T BBUFF * 4 1 = I DITTY* IVAN) - RTIME*TRATXT 

T BBUFF *16>= I brliff * 4 > 

I BBUFF* 9) = IOITTM + RTIME-k-TRATVT 

I BBUFF * 2 1. 1 = T BBUFF * o ) 

T F * Y CO * 1 > FO o O) 00 TQ 2 500 
C THERE IS a PORT VORTEX 

I BBUFF *31= T RIJN XT + I XC 1 *YRATYT 
T RBI IFF (61= T ADRTS * 1 ' 

T RBI IFF * i o 1 = T D I TV * T VAN 1 + YCO * \ ) *VRAT YT 
T BBUFF ( t 2 1 ss I BRUFF * 6 1 
GO TO 3000 
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2500 CONT I NUE 

C THERE WAS NO PORT VORTEX 

I BBUFF < 6 > = I ABLNK 
I BBUFF ( t 2 ) = I ABLNK 
3000 CONTINUE 

I BBUFF ( 1 4 ) = I BBUEF < 2 > 

I BBUFF <8) = I BBUFF < 2 ) 

I BBUFF < 20 ) « I BBUFF < 7 . ) 

I F ( XOG ( 2 > . F.9 0 0 > 00 TO 3 500 
C THERE IS A STARBOARD VORTEX 

I BBUFF < 1 5 > « I RUN XT + I XC2*XRATXT 
1 BBUF F ( 13)= I ADR ' T S ( 2 > 

I BBUFF < 22)= IDITY< IVAN) + YCO ( 2 ) *YRATYT 
I BBUFF < 24 ) « I ADPTS< 2 ) 

IFfVCG<t> NE. 0 >00 TO 3600 
I BBUFF ( 1 8 > s= I ADD X Y < 1 9 > 

I BBUFF < 24 ) « I ADO X Y ( 1 9 ) 

00 TO 3600 
3500 CONT I NUE 

C THERE IS NO STARBOARD VORTEX 

T BBUFF ( A 't = I AOOYY (19) 

I BBUFF ( 1 2 ) * I ADD X Y < 1 3 > 

1 BBUFF M. 3 > = I ABLNK 
I BBUFF < 24 ) s I ABLNK 

3600 CONT I NUE 

CALL D T SP 1 0 ( 4, 48 . I BBUFF ) 

4000 CONTINUE 

IF < NVORTX LT 2) RETURN 
PORTS < I VAN > » X CG < 1 > 

ST ARBS ( 7 VAN ) =XCG ( 2 > 

RETURN 

END 
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1 00 

200 
J. 000 


subroutine oetuel< tu. vel > 

TF<IU LE 0) GO TO 1000 
COLL SI JOB I T < T V . 2 . 7 , \ DUM ) 

TBfTDUM GT A9) GO TO 1.00 
VEf. ss FLOAT f T OUM ) «■ 1 R 
RETURN 

CONTINUE’ 

IF* I OUM. GT 75) GO TO 700 

VEL- 1. 13**9 0 ■+- El. OAT (T DUM - A.9 ) *7 A 

RETURN 

VEL = t G*A9 0 + 7 A* A O + FLOAT < TDUM-75) -s-7 

RETURN 

VEL-O 0 

RETURN 

END 
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SUBROUTINE DFLT <N) 

COMMON /BUFFER/ I BUF 1(12), X BUF2 (12).. I BUFFF ( 2 ) 

COMMON /DSPL/ NS 1. , NS 2? NS 3 , NS4, LOT. KSM, KL.O, L.LDT 
COMMON /IR..DV/ IFLDV 

COMMON/ 1 NPT / PTTOL , NO T SE , VELTOL . VORTOL . T RAD I , I RAD 1 7 , NR AD T # 

1 CON X V , ST I ME . FRVTOL 

COMMON /L.DVDAT/IFLY, T FRM, T TMTNT ( 2 ) , I TMEND < 2 ) • IOAY, IPLN, NUMPTS, 

\ I X < 1 OOO > , T Y < 1 OOO ) ■ T NTENS ( 1 000 ) , I VEL. < 1 000 > 

COMMON/OWT / 1 OWT < & ) 

COMMON /ROUT/ ROUT. KOBE 

COMMON /SETUP / DATE . UDFT < 20 - h ) , JPLTP ( 3 ) , 1 PL I ND , T L U 60 > , T T M ( 2 ) , 

1 I Ft B ( 3 ) . I L D V , I AHC , I L 2 ( 90 ) , KRBUF ( 6 ) 

COMMON /TMPS /KDFTT ( 6 ) • JAUT 0 
BYTE TBUF2 
DIMENSION N< 8) 

EOU T VALENCE < I BUFO 1 , I PUP? < 1 > > , (X BUF 3 , T BUF 2 < 3 } ) , (X BUF 5# I BUF 2 < 5 ) ) , 
t ( I BUF7 . T BUF 2 < 7 > > , (X BUF 9 , X BUF 2 < 9 ) ) , < X BUF 11,1 BUF 2 < 1 1 > > 

EQUIVALENCE < KDFTTt , KDFTT < 1 ) ) , ( KDFTT2, KDFTT ( 2 ) ) , < KDFTT 3, KDFTT ( 3 ) ) 
1 ( KDFTT4, KDFTT ( 4 ) ) > ( KDFTT 5? KDFTT ( 5 ) ) , ( KDFTT/., KDFTT ( 6 > > 

DATA DATS / -DFLT ' / 

ROUT = DATS 
N2-N(2> 

IF <(N2 GE 10) OR. (N 2 EG. 7)) GO TO 900 

IF <N2 GT 6) GO TO 500 

KDFTT ( N2 ) ss ( ( N < 5 > -420. >*100. 0 ) /560. 0 

III nO*N2-7)=N(5> 

X L 1 < 1 0*N2— 2 ) “N ( 5 > 

GO TO <25, 50, 75, 100, 125, 150), N 2 
25 CONTINUE 

X RAD I wKDFTTl /CONXY 
GO TO 900 

50 VELTOL - KDFTT2*0. 0.1 
GO TO 900 

75 PTTOL = KDFTT3*0 01 
GO TO 900 

100 NOTSE = KDFTT 4 /to 
GO TO 900 

1.25 VORTOL - KDFTT 5*0 01 
GO TO 900 

150 FRVTOL - KDFTT6*0 01 
GO TO 900 
500 DO 525 T=t , 6 

JOFTX TPL.IND, X > -KDFTT ( X ) 

525 CONTINUE 
GO TO 950 
900 CONTINUE 

kt=iradi*conxy 

CALL OECD (KI, 2- I BUF0 1. ) 

K I = VELTOL * 1 00 0 
CALL DECD < KI , 2, TBUF3) 

K I «PTT0L*1 00 0 

CALL DECD <KI, 2, XBUF5) 

CAL {... DECD < NO X SE . 2 , TB1 ..IF 7 ) 

K I -V0R7 OL* i 00 O 

CALL DECD < K X , 2 . X BUF9 > 

K I -FRVTOL *100 O 

CALL DECD (KI, 2- XBUF1 1 1 

CALL D X SP 10(9, 1 2 , X OWT ) 

950 CONTINUE 
RETURN 
END 
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'*;! IftROI IT T MF PTYPTN7 

COMMON /PA IFFFR / T P:t IF 1 < 12 7 . T r-:t,IF ? ( 7 . T RMF < 7 I 

common. /cfi. t / cfi 7 

COMMON /TMTRI. / k'PRirif:, TAROT I , MTT.RF 
COMMON /TlFI. TPT/LTiFPI . T 
D lMMOM /TFi m/ / T FI nv 

common/impt/ pttoi , motsf. vfltol. oortoi. . t pad t , t rad T 7 - mp AD T 

1 . rrtMVY, ST T MF FRVTm. 

mMMHM /I DOHAT / J FI V . T FPM . T TM T MT 1 7 7 . T TMFWIT f 7 1 , | DAY , I PIN . N! IMP TP 

1 t y < 1 000 > , t y < 1 arm 7 . t mtfns ( 1 000 7 . 7 vfl / 1000 1 
common /out/ rnwri/o 

COMMON /'PI NAMF / T FIAT ■ r-.O 7 
COMMON /ROOT/ ROOT, CORF 

COMMON /SFTI.IP / OATF , . IOFT 20 . AO , , IRI ... TP ( 2 7 . T PI... T. NO - T L 1. < A.O > . T 1 M < 7 7 
7 T FI F! (3 7 . T I DO. T AHC . T I 2 90 7 . CRRI IF < A, 7 
COMMON /TMF'S / LTiFTT < A, 7 , JAIITO 
TNTFOFR r FI,. T 

r fsi tf o fr y t . y m . v t . n v . n n y 

O T MFMS T ON M < 2 > . M ( A. 7 
0 T MF N S T ON T OAT f i 7 \ 

FOI IT OAI FMCF 1 T OATF < O . OAT P 7 

POM T OAl FMCF { ,;ipi. TP 1 . . IP! TP ( 1. > > , < . IPI .TP2 ■ OPi. TP ( 2 7 > . < JPL.TPS . OPLTP 


f VI TP I ON V-COORTlTMATF 

c VM rs M T ON V -COORD T NAT F 

OAT A VI . VM/420. 900/ 

C 

DATA CM1/-1/ 

O A T A OATS / P T Y P " / 

ROUT =; OATS 
M 2 -N ( 2 > 


TF 

1 N2 FO 

22 > 

00 

TO 

7 00 

TF 

( N2 MF 

21 7 

00 

TO 

7S 

TF 

( kPROC FO 

1 7 

00 

TH 

99=7 


CDF PI T 1 

on TO 9 so v 

7S COMT 7 Ml IF 

JF <N<47 FO IO 00 TO 200 
TPI 7ND=N2 
f=::S^7PI T N0“2 
, IP! TP 1 = T OAT ( 7 7 
, IPI. TP2-TOAT ( 1 + n 
. JPI TPS-: T OAT ( T +7. > 

OH TO 900 
1 OO COMT 7 Ml IF 
1=2 

M ( 2 7 » 1 

TF <CPROC FO II OO TO t 10 

7 =9 

M •' 2 7 « 3 
110 COMT T Ml IF 

CA|.„, I OTSRTO <?, 7,0) 

CALI RTV i‘M' 

RFTHRM 
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200 CONTINUE 
T PI... T wn~ 1 8 
JPLTP1 =N<51 
, IP( TP?-N< A ) 

.JPLTP3=N<7> 

■900 CONTINUE 

T F K P R n C— 1 ) 9 8 0 9 3 0 . 9 1. 0 
910 CONTINUE 

9 1.2 TF< T PL TND - T PIN ) 915 , 93 0 , 9 1 5 

915 CONTINUE 
NPAssl 

CALL SPUN ( 1 , 10. NBA . NFL ) 

CALL OREAD 
fifi TO 912 
930 CONTINUE 

ox - xm—x t 

00 950 T ~ t « 6 

KDFTT(T) = .JDFT< I PL TND- T ) 

KX=X 1 + < OX*KDFTT < I) ) *0 0 1 
T I ... t ( 10*T-7)=KX 
TLt <10*1-2 ) -LX 
950 CONTINUE 

TRAD! - KDFTT ( 1 ) /CONXY 
OFLTOL “ KDFTT<2>*0 01 
PTTOL = KDFTT ( 3) *0 01. 

NO T SE = KDFTT < 4 > / 1 0 
OORT OL = KDFTT<5)*0 01 
FROTOL - KDFTT <A>*0 01 
j~5 

IF ( KP ROC EQ 2) .J=15 
DO 9 AO 1 = 1.2 
TDLJP 1. ( T ) = TFL.B < T 1 
T RJ.IP 1(1 +9 > = I DATE < T ) 

9 AO T BLIP t ( 1+9) sb.JPL.TP < T > 

CALL T THE ( TBLIFt < A) > 

IF ( C F | T EO. l) GO TO 99 5 
CALL D ISP IOC?. 0) 

CAL L D T SP 10(1. 24 . T BIIF 1 1 
C 

C , CALL DISPLAY CONTROLLER TO DISPLAY DEFAULT IN WRITE THROUGH 
CAL L D T S P TO ( 2 . J+ 1. , KM 1 > 

CALI... D T SP 1 0 < 9 , l ? , I OUT ) 

995 CONTINUE 
RETURN 
END 
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